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INTRODUCTION 



A programmer's ability to create Apple graphics can be compared to an ar- 
tist's ability with a sketchpad or an animator's skill with animation. Each in 
their own way creates images that are in some way entertaining. The viewer, 
however, is only interested in the final effect, not the tedious technical process 
that the artist or programmer had to apply to produce that effect. 

The Apple II is a wonderful graphics tool, but unfortunately highly complex 
to use at any level other than Applesoft BASIC. The scattered magazine ar- 
ticles covering Apple graphics have shown the machine's complexity without 
presenting an adequate solution to the problem of graphics programming con- 
cepts. Those who understand the process and have mastered it are too busy 
writing programs to share their knowledge. 

Magical references like "Raster Graphics" and "Bit Mapping" are spoken 
of as if they are secret techniques practiced only by the top programmers. Their 
games, such as "Raster Blaster", "Galaxian", "Sneakers", and "PacMan" 
have both awed wishful game designers and shown them the limitations of their 
own programming techniques. 

This book will allow you to enter the world of Apple graphics, in which your 
most imaginative ideas can be animated. The various chapters will attempt to 
present a comprehensive course in Hi-Res graphics and high speed arcade 
animation. The major part of this material requires the ability to do assembly 
language programming. However, since this book was designed to increase the 
novice programmer's graphics skill, it assumes no prior knowledge of Apple 
graphics. The book begins with the bare bones graphic techniques of Applesoft 
BASIC and goes on to teach elementary machine language techniques that will 
enable the reader to program simple high speed games using the ROM's built 
in graphics routines. 

Bit mapping (or raster graphics) and its use in high speed arcade animation 
will be covered in great detail. The approach throughout the book is to teach by 
example. The techniques required to program the three classic game types, (1) 
Space Invaders, (2) Asteroids, and (3) scrolling games like Defender, are ex- 
plored. There are sections on paddle control, firing lasers, dropping bombs, 
explosions and scoring. Page flipping and scrolling techniques are also discuss- 
ed. 

The only requirements for this book are an inquisitive mind, perseverance, 
and a good assembler. Although prior assembly language programming ex- 
perience is not necessary, you won't be able to write code without an 
assembler. The Apple's mini-assembler is totally inadequate for such a task. 



I will attempt to explain the ideas in this book through a combination of text, 
drawings, and flow charts. The concepts in this book may seem easy at times, 
and somewhat difficult at other times. The Apple with its many idiosyncrasies 
is a strange beast to master. My advice is to read the book in stages and try the 
examples. Learn how they work. 

While my goal for presenting this material was to educate a new generation 
of arcade game designers, I dread the proliferation of copy cat games. The 
world doesn't need an eighth Asteroids game, or a tenth PacMan game. They 
have been done. I do hope that programmers both young and old will use their 
imaginations to create something novel and exciting. 




JEFFREY STANTON 
VENICE, CALIFORNIA 
APRIL 16, 1982 

PROGRAM LISTINGS AVAILABLE ON DISK 

The majority of the code listed in this book is available on diskette to readers 
who disdain typing long computer programs. The disk is unprotected. The cost 
of this disk is a nominal $15.00 plus $1.50 postage to U.S. residents (foreign 
orders please add $5.00 for air mail). California residents add 6% state sales 
tax (Los Angeles County residents add 6J4 % sales tax). Available from The 
Book Co., 11223 S. Hindry Avenue, Suite 6, Los Angeles, CA 90045. (See 
order card at back of this book.) 

A bit -mapping utility program, which was mentioned briefly in Chapter 4, is 
available to readers who purchase the above disk for an additional $10.00 plus 
tax. It enables the user to design any multi-colored bit-mapped shape on a grid 
49 pixels wide by 32 lines deep. The program calculates the subsequent shape 
table in hexadecimal for both even and odd starting offsets, plus six additional 
shifted tables if that option is selected. Shapes can be displayed in their actual 
size and color as well as saved to disk. The program supports a line printer but 
it is not required. 

The Applesoft and machine language object files provided will run on any 
standard Apple II Computer, but the assembly language source code requires 
one of three assemblers to interpret them. Big Mac and TED II + assemblers 
are available from Call A.P.P.L.E. Additionally, Merlin is available from 
Southwestern Data Systems. These binary source files can also be reformated 
for use in other assemblers like Lisa 2.5 or Tool Kit by using a text editor such 
as Apple Pie. 
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CHAPTER 1 

APPLESOFT HI-RES 



The Apple II computer has the ability to display color graphic images on a 
video monitor or television screen. It displays these images through a process 
known as Memory Mapped Output. Various circuits scan specific areas of 
Random Access Memory (RAM) to determine what should be displayed on 
the screen. These circuits convert memory information into images containing 
pixels or dots that are either turned on or off at particular screen positions 
Each memory location contains a coded series of instructions for a particular 
segment of the Hi-Res screen. Thus the hardware maps the image coded in 
memory to the video screen. 

The Apple II computer has two distinct graphics modes. Lo-Res graphics, 
which occupies the memory space reserved for the text page ($400 - $800), has 
a resolution of 40 dots horizontally by 48 dots vertically. Each dot is very coarse 
(7 X 8) pixels. Any one of sixteen colors can fill each of the 1920 positions on 
the screen. Hi-Res graphics, on the other hand, is much more detailed or 
dense. The resolution is 280 horizontal dots by 192 vertical dots. This gives 
53,760 points on the screen. However, only six different distinct colors are 
available in this graphics mode. (There are actually eight colors including two 
whites and two blacks.) 

Both graphics modes can either be full screen or they can be a mix of 
graphics and four lines of text at the bottom of the screen. This format reduces 
the Lo-Res screen to 40 lines and the Hi-Res screen to 160 lines. 

Each of the graphics modes has two distinct pages or screens. They reside in 
specific areas of memory which are hardware set. Each screen can be viewed 
separately by setting a series of software switches that are located in Read Only 
Memory (ROM). These are not real physical switches but switches that can be 
toggled by POKEing values to their ROM reserved memory locations. These 
switches tell the video hardware to display either text or graphics, Lo-Res or 
Hi-Res, full screen graphics or mixed text and graphics, and either page 1 or 
page 2. 

When you execute the GR statement in BASIC, the computer turns on the 
Lo-Res graphics mode, clears display memory so that the screen is black, and 
defaults to four lines of text at the bottom of the screen. The text window can be 
eliminated by typing the statement POKE - 16302,0, thus giving full screen 
Lo-Res graphics. Similarly, the HGR statement turns on page one Hi-Res 
graphics, clears Hi-Res memory so that the screen is black, and defaults to the 
mixed text and graphics mode. Full screen graphics can be achieved by the 
statement, POKE - 16302,0. And if you wish to view page 2 of Hi-Res 
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GRAPHICS FULL SCREEN 



-16304 
$C050 



-16302 
$C052 




PAGE1 

-16300 
$C054 



LO-RES 

-16298 
SC056 



TEXT 

-16303 
$C051 



MIXED TEXT 
& GRAPHICS 
-16301 
SC053 



PAGE 2 

-16299 
$C055 



HI-RES 

-16297 
$C057 



memory, the command HGR2 turns it on. The statement POKE - 16301,0 
sets full screen graphics for page 2. 

The principal disadvantage of using HGR or HGR2 is that executing either 
of these commands clears the Hi-Res page selected, regardless of your wishes. 
There are times when you have produced a display and want to switch to a full 
page of text. If you return from text mode through the above commands, your 
display will be erased. 

It is possible to enter the Hi-Res graphics mode without erasing the display 
screen. If you set the following soft switches which reside in reserved memory 
locations - 16304 through - 16297 ($C050 through $C057), you can display 
Hi-Res graphics page 1 without erasing its previous contents. 



POKE -16304,0 
POKE -16297,0 
POKE -16300,0 



SETS GRAPHICS MODE 
SETS HI-RES MODE 
SELECTS HI-RES PAGE 1 



Hi-Res page 2 can be displayed with the following commands: 

POKE - 16304,0 SETS GRAPHICS MODE 

POKE -16297,0 SETS HI-RES MODE 

POKE - 16299,0 SELECTS HI-RES PAGE 2 

If you wished only to switch displays from Hi-Res page 1 to Hi-Res page 2, 
only the last command is necessary because the first two commands were 
previously set. 

I should point out that the command "TEXT" will normally return you to 
page one of the text mode in Applesoft, but may not do so in Integer BASIC. If 
page two graphics were previously being displayed, the computer would return 
to page 2 of the text mode. Since this isn't the screen where the commands that 
you are typing are being displayed, the keyboard would consequently appear to 
be dead. Page one text can be selected with the statement, POKE - 16300,0. 
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MEMORY CONSIDERATIONS 



The two Hi-Res screens reside at memory locations 8192 - 16383 
($2000 - $3FFF) for page 1 , and at 16384 - 24575 ($4000 - $5FFF) for page 2. 
These locations are permanently set. When programming in either BASIC, 
some considerations must be made as to where you should put your programs 
so that they don't conflict with the Hi-Res graphics screens. 

If we examine an Integer BASIC program memory map below, we see that 
the program begins at HIMEM:, which is set by the computer to be just below 
DOS. Variables are stored beginning at LOMEM:, which is normally set just 
above the text page at location 2048 ($800). Unless you have some huge storage 
arrays or a very long program, neither the program nor its variables will cross 
the Hi-Res screen memory boundary. For safety's sake, it is often better to set 
LOMEM: 16384 ($4000) so that no conflict could arise. This is especially true if 
both Hi-Res screens are being used. In that case, set LOMEM: 245 76 ($6000). 



PROGRAM LINES 

BUILD DOWN 
4 



i*HIMEM: 

LOCATIONS (202,203) 



VARIABLE STORAGE 
BUILDS UP 



LOCATIONS (204,205) 
^LOMEM: 



INTEGER BASIC PROGRAM MEMORY MAP 



Applesoft, on the other hand, stores its program just above the text page at 
2048 ($800). Program lines build upwards towards the top of memory. As the 
program gets longer, LOMEM:, which is the end of the Applesoft program, is 
pushed upwards. Simple variables and array variables begin just above 
LOMEM:, and string storage beginning at HIMEM:, builds downward. 
Thus, setting LOMEM: to a value above the Hi-Res screen would not relocate 
the Applesoft program nor prevent a long program from occupying the same 
memory space as the Hi-Res screens. 
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STRING STORAGE 
BUILDS DOWN 
* 



l«-HIMEM: 



ARRAY VARIABLES & 
STRING POINTERS 



STRING VARIABLES & 
STRING POINTERS 



PROGRAM LINES 
PUSH LOMEM: UP 



-*-LOMEM: 



APPLESOFT BASIC PROGRAM MEMORY MAP 



The solution is to set the pointers to the beginning of program text to a value 
above the Hi-Res screen(s) which you are using. These pointers must be set 
prior to loading or running the Applesoft program. 

The easiest method for accomplishing this is to write an EXEC file which 
will automatically set these pointers and load or run your program in the pro- 
per position. The two pointers that must be set are at locations 103 and 104 
decimal, lo byte and hi byte respectively. These are the pointers to the begin- 
ning of program text. A reset of the pointers and linkage to either firmware 
Applesoft ROM or Applesoft in the language card can be assured with a call to 
the subroutine at 54514 ($D452). One of the idiosyncrasies of this method re- 
quires that a zero byte precede the main program. Therefore the pointers are 
set one byte higher than requested, and the zero byte is poked into the first 
position. The following short program will create an EXEC file that will put 
your Applesoft program in the proper place, free of interference from your 
graphics. 
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10 D$ = CHR$ (A): PRINT D$;"N0M0N C.1,0 
20 HOME 

25 PRINT "THIS PROGRAM CREATES AN EXEC FILE THAT" 

26 PRINT "RELOCATES AN APPLESOFT PROGRAM TO SOME" 

27 PRINT "ADDRESS OTHER THA $800 (2048 DECIMAL)" 

30 VTAB 6: INPUT "NAME OF APPLESOFT PROGRAM? ";FILE$: IF FI 
LE$ = "" THEN 30 

40 PRINT : PRINT "ENTER THE DECIMAL ADDRESS FOR THE START": 

INPUT "OF THE PROGRAM :"; START 
45 IF START < 2047 THEN PRINT : PRINT "VALUE MUST BE GREAT 
ER THAN 2047": PRINT : GOTO 40 
50 PRINT : INPUT "NAME OF EXEC FILE: ";EFILE$ 
55 S = START + 1:HB = INT (S / 256) :LB = S - HB * 256 
60 PRINT D$;"OPEN ";EF$: PRINT D$ ; "DELETE" ; EF$ 
65 PRINT D$;"0PEN ";EF$: PRINT D$; "WRITE ";EF$ 
70 PRINT "FP": PRINT "HOME: POKE 50,128" 
80 PRINT "P0KE103,";LB;" 
85 PRINT "P0KE104,";HB;" 
87 PRINT "POKE "; START ;",0" 
90 PRINT "LOAD ";FILE$ 

95 PRINT "CALL54514": PRINT "P0KE50,255" 
100 PRINT "RUN": PRINT D$; "CLOSE" 
105 END 



COLOR & BACKGROUND FILL 

There are eight color choices (0-7) on the Hi-Res screen. These are selected 
by the HCOLOR statement. Since the screen is arranged in alternating col- 
umns of either violet-green or blue-orange colors, depending on whether the hi 
bit is set in a screen memory byte, the absence of color produces two different 
blacks, and the presence of two adjacent lit pixels produces two different 
whites. (See chapter 5 for a more detailed explanation.) Thus, only six distinct 
colors are available. These are listed in the following chart. 
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COLOR 


NUMBER 


BLACK 


o 


GREEN 


1 


VIOLET 


2 


WHITE 


3 


BLACK 


4 


UKANGh 


5 


BLUE 


6 


WHITE 


7 



Sometimes it is desirable to clear the screen to a background color other than 
black. This can be accomplished by calling an Applesoft ROM subroutine 
located at decimal 62454. This clears the screen you used last, regardless of 
switch settings, to the color most recently HPLOTed. Of course, a call to this 
subroutine must be preceded by a HPLOT statement. For example, to clear 
the background to green, try the following: 

100 HCOLOR = l:HPLOT 0,0 :CALL 62454 



PAGE FLIPPING 

Using both Hi-Res screens is an effective way of smoothing animation, or 
creating an image on one screen while viewing the alternate screen. When a 
group of objects or lines are drawn successively to the screen during an anima- 
tion frame, the last object drawn is on screen only a fraction of the time that the 
first object is on the screen. And if there are many large objects, the continuous 
drawing becomes noticeable. 

Page flipping is an effective method to reduce flicker between animation 
frames. However, one assumes a reasonable animation frame rate of at least 10 
frames per second, or the animation appears slow and jerky. The trick to this 
method is controlling the screen that is drawn to, regardless of the screen 
switch positions. There is a pointer in zero page, decimal location 230 ($E6) 
that sets which screen is plotted to. A POKE 230,32 indicates screen #1, and 
POKE 230,64 indicates screen #2. 

The following example demonstrates the technique. The program HPLOTs 
thirty random line segments on one screen while the other screen is viewed. It 
then changes viewing screens to the screen where the image had just been 
drawn, and erases the opposite screen before randomly drawing thirty new line 
segments. The result is a series of completed line drawings that change from 
one image to the next without anyone being aware that they are being drawn 
elsewhere. 



When screen #1 is viewed by toggling the switch with POKE - 16299,0 , the 
statement, POKE 230,64 , tells the computer to draw to screen #2. Since $E6 
points to screen #2 when the clear screen is called at line 52, it clears screen #2 
before plotting our thirty random line segments. When we switch viewing 
screens to the completed picture with a POKE - 16300,0 ,we reset $E6 to the 
opposite screen with a POKE 230,32. Now we are viewing screen #2, and 
drawing on screen #1 . 



5 XI = 0:Y1 = 

10 REM CLEAR BOTH SCREENS 

20 HOME : HGR : HGR2 : HC0L0R= 3 

30 REM NOW LOOKING AT PAGE #2 

40 REM SET DRAWING MODE POINTER (E6) TO SCREEN #1 

50 POKE 230,32 

51 REM LEAR SCREEN #1 

52 CALL 62450 

60 FOR I = 1 TO 35 

70 X2 = INT ( RND (1) * 280) 

80 Y2 = INT ( RND (1) * 192) 

90 HPLOT XI, Yl TO X2.Y2 

100 XI = X2:Y1 = Y2 

110 NEXT I 

120 REM LOOK AT SCREEN #1 FULL SCREEN 

125 POKE - 16300,0: POKE - 16302,0 

130 REM SET DRAWING MODE POINTER (E6) TO SCREEN #2 

135 POKE 230,64 

136 REM CLEAR SCREEN #2 

137 CALL 62450 

145 FOR I = 1 TO 35 

150 X2 = INT ( RND (1) * 280) 

160 Y2 = INT ( RND (1) * 192) 

170 HPLOT XI, Yl TO X2.Y2 

180 XI = X2:Y1 = Y2 

190 NEXT I 

200 REM LOOK AT SCREEN #2 
210 POKE - 16299,0 
230 GOTO 50 
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As you view the different supposedly random screens, you will notice that 
the screens appear to repeat every few frames. The repetition, although not 
perfect, is due to a faulty random number generator in Applesoft This pro- 
gram graphically illustrates the fault. 

A demonstration of the same program without page flipping can be shown 
If you take the previous listing and make the following changes, the images can 
be seen as they are drawn. 



DELETE LINES 50 & 135 
52 HGR2 : POKE-16302,0 
125 POKE -16299,0 
137 HGR : POKE-16302,0 
210 POKE -16300,0 
230 GOTO 52 



APPLE SHAPE TABLES 

The Apple II offers a very powerful feature in Applesoft BASIC called shape 
tables. They are essentially figures or shapes that use tiny vectors to quickly 
generate their form. They are very flexible in that they can be plotted anywhere 
on the Hi-Res screen without destroying the background, and they can be 
scaled (expanded) and rotated. These shapes are often used in animation and 
game design. 

A shape table can consist of up to 255 different shapes. Each shape in the 
table is generated by outlining it with tiny unit vectors which are all the same 
length, but may take any of four directions (up,down,left,right). The vectors 
are placed head to tail until the entire shape is outlined. These vectors can also 
be of two types: plot vectors or move-without-plotting vectors. Then, using a 
key, these direction vectors are encoded into a string of hexadecimal bytes 
which are stored in memory as part of a shape table. 

The procedure for creating a shape table isn't difficult, but it is time- 
consuming and quite prone to error if you aren't careful. The method, due to 
the nature of its encoding, has several peculiarities that the programmer should 
be aware of. The most important point, one that is rarely explained, is that the 
first vector is the position that the shape is drawn when X,Y coordinates are 
specified. For example, if you wish to draw a square shape to the screen that is 
two vector units per side, you will prefer to have the shape drawn so that it is 
centered at the coordinates specified. But if you start your string of vectors at 
the upper left corner instead of at the center, the shape's center will be at the 
corner. If the shape is rotated, it will pivot about that point instead of neatly 
rotating about the square's center. The solution to this misconception is to start 
at the shape's center and make a move upwards without plotting to the outline 
of the square's shape. 



DESIGNING AND FORMING SHAPES 



The first step in this procedureis to define your shape or shapes on a piece of 
graph paper. Direction vectors are drawn to indicate the sequence of coded in- 
structions that will become our shape table. You can start your vectors around 
your shape in either a clockwise or counterclockwise direction; it doesn't mat- 
ter. Next, we unwrap these vectors, starting with vector one at the left. This se- 
quence forms a graphic list of our plotting vectors. Solid vectors indicate moves 
while plotting, and dotted vectors indicate moves without plotting. These vec- 
tor codes range in value from 0-7 and are summarized in the table below. 



SYMBOL 


ACTION 


BINARY 
CODE 


DECIMAL 
CODE 




f> 

1 


MOVE 


UP WITHOUT PLOTTING 


000 







1 

— > 


MOVE 


RIGHT WITHOUT PLOTTING 


001 


1 




1 
1 


MOVE 


DOWN WITHOUT PLOTTING 


010 


2 


< 




MOVE 


LEFT WITHOUT PLOTTING 


011 


3 




T 


MOVE 


UP WITH PLOTTING 


100 


4 






MOVE 


RIGHT WITH PLOTTING 


101 


5 




i 


MOVE 


DOWN WITH PLOTTING 


110 


6 






MOVE 


LEFT WITH PLOTTING 


111 


7 



Each shape table byte (8 bits) is divided into three sections. Sections one and 
two are three bits each and contain any plotting vector. But section three 
which contains only two bits, can only hold certain plotting vectors. The three 
vectors allowed are down, left and right without plotting. Most of the time this 
section remains unused. This is acceptable, because if section three of the 
shape definition byte is zero, Applesoft ignores the section and advances to the 
next byte of the shape. 





SECTION 3 SECTION 2 


SECTION 1 


BIT 

M = MOVEMENT BIT 
P = PLOT /NO PLOT BIT 


7 
M 


6 

M 


5 
P 


4 
M 


3 
M 


2 
P 


1 

M 



M 



There is some ambiguity with plotting vectors that are equal to zero In sec- 
tions one or two, a zero specifies that you can "move up wiLut plotting " but 
m section three it means "no movement and no plotting". This To mean 
l^nSS^ 3 ^ UP WhhOUt W * ** ^ section orTS 
.^l 3 " ? re . e S< f ions set to z <*o, Applesoft interprets it as an end of the 

£ % eslm^row 6 uT* °* "T UP With ° Ut pl0 " ing " that can 

be present m a row If for example, sections one and two both contained 

move up without plotting" vectors and the next instruction was a plot sec 

tion three would be zero also. The value for the byte would be zero, Zr an end 

o shape You can use the "move without plotting" vector in a byte as long T a 

different plotting vector comes after it. So how do you move upwards several 

vector urn s without plotting? By not moving in a straight line. You can move 

up one, left one, right one, then up one again. This can be repeated a number 

thx\£Z\ d T ih left y ° Ur head in a S P in ' but an exar "Ple will show 

that shape tables can be constructed by mere mortals. I should point out that 
he final table ,s m hexadecimal, and that once the binary coded^plotting vec- 
tors for each segment are arranged in groups of two or three within a byte it 

encodr/" 1 " t0 dmdC ^ tW ° nibbleS ( 4 bits each ) ^ easier 

O * 
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SHAPE #1 



START 



-I 



SHAPE #2 



DRAWINGS OF BOTH SHAPES 



SHAPE #1 


00 


101 


100 


0010 


1100 


2C 




00 


111 


110 


= 0011 


1110 = 


3E 




00 


000 


000 


0000 


0000 


00 




00 


101 


100 


0010 


1100 


2C 




00 


101 


110 


0010 


1110 


2E 




00 


111 


110 


0011 


1110 


3E 


SHAPE #2 


00 


111 


110 


0011 


1110 


3E 




00 


111 


100 


0011 


1100 


3C 




00 


101 


100 


0010 


1100 


2C 




00 


000 


000 


0000 


0000 


00 



ASSEMBLING A SHAPE TABLE DIRECTORY 

Shape tables are preceded by a shape table directory which contains infor- 
mation concerning the number of shapes in the table, and pointers to the 
beginning of each shape. The first byte contains the number of shapes (0-255), 
the second byte is unused, and the remaining pairs of bytes contain the offsets 
to each shape in the table. The actual number of pairs depends on the number 
of shapes in the table's first byte. 

Although space may be defined for a certain number of shapes when the 
directory is constructed, there is no rule that says all these shapes need be in the 
table. Most programmers leave extra space because it is somewhat difficult to 
expand the table later if extra shapes are needed. A summary of the directory is 
shown below. 
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DISPLACEMENT 






NUMBER OF SHAPES 
IN TABLE ($0 -FF) 


1 


UNUSED 


2 


OFFSET TO SHAPE 1 
LO ORDER BYTE 


3 


OFFSET TO SHAPE 1 
HI ORDER BYTE 






2N+? 


OT? "PC "CP TT\ pit inn »t 

Uffbbi TO SHAPE N 
LO ORDER BYTE 


2N+3 


OFFSET TO SHAPE N 
HI ORDER BYTE 


2N+4 


PLOTTING VECTORS 
SHAPE 1 



LENGTH DEPENDS 

ON NUMBER OF 
SHAPES IN TABLE 
(2 BYTES/SHAPE) 



PLOTTING VECTORS 
SHAPE N 



If we construct a directory for our previous two shape examples, it takes the 
following form. 



BYTE 





1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F 



02 
00 
06 
00 
09 
00 
2C 
3E 
00 
2C 
2E 
3E 
3E 
3C 
2C 
00 



NUMBER OF SHAPES 
UNUSED 

LO BYTE OF OFFSET TO SHAPE #1 
HI BYTE 

LO BYTE OF OFFSET TO SHAPE #2 
HI BYTE 




SHAPE #1 



SHAPE #2 



This procedure is very time-consuming and, if the shape is complex, prone 
to error. Fortunately, there are a number of commercial programs that can 
perform this chore automatically. Most of these, in addition to the standard 
shape creator, incorporate an editor for merging shapes from several different 
tables. 

Several products that I would recommend are Higher Graphics (Synergistics 
Software), The Complete Graphics System (CO-Op Software), and Shape 
Builder and Editor (Telephone Transfer Connection). These packages range in 
price from $35 to $60. 

The shape table creator which I've included below lacks an editor for merg- 
ing, inserting, or deleting shapes. It is also limited to shapes with a maximum 
size of 25 X 15 pixels. This is inherent in the design, which allows you to define 
shapes precisely on an oversized grid. 

The program is menu-driven and somewhat user-proofed to prevent "bom- 
bing" the program in the midst of a hundred-shape-long table, which the user 
in this case, might have neglected saving periodically to the disk. Once a shape 
table is initialized, shapes are created one at a time with the command, 
(C)reate. A starting point is chosen for the shape's center. These values have 
no relationship to the coordinates where the shape is plotted later, but is the 
center of the shape and the point about which the shape is rotated with the 
ROT command. Your shape doesn't have to start there, but can be offset from 
it or completely surround it. 
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The current cursor position can be moved by the I J,K,M keys. If you want 
to plot a point, press the P key after a move. If you make a mistake, the E key 
will erase the last plotted point; however,this must be done before the cursor is 
moved again^ Sorry but it doesn't step back through your keystrokes. When 
you are finished with the shape, you simply (Q)uit 

When you are returned to the main menu, you have a choice of (V)iewing 
the shape or (A)ddmg the shape to the table. Look at the shape first, because if 
it is incorrect you can try again with the (C)reate command rather than add it 
to the table You can also save the table or load a new table at any time 

lhis Applesoft program must be relocated above Hi-Res screen page 1 Use 
the program discussed earlier to create an EXEC file which will reset the 
pointers. Set the loading address at 16385 decimal. The Shape Creator stores 
. ts shape tables at $800, or 2048 decimal. If you choose to put your tables 

tolvsh^ZfollT Pr ° gram 3 SPedflC (e*. 

Some of the readers who attempt to decipher my code will notice that I stored 
a value in the second position of the shape table directory. This location is nor- 
mally unused . I chose to use the location to keep track of the number of shapes 
currently m the table. The first location contains the maximum number of 
shapes that the table can hold. This notation is entirely compatible with 



1 D$ = CHR$ (4):B$ = CHR$ (7) 

3 AFLAG = 1:N = 

5 POKE 232,0: POKE 233,3 

14 FOR I = TO 9 

16 READ A: POKE 768 + I, A: NEXT I 

18 DATA 1,0,4,0,62,36,45,54,4,0 

20 TEXT : HOME 

24 HTAB 13: PRINT "COMMAND S"- PRINT 

26 HTAB 9: PRINT "(I)NITILIZE SHAPE TABLE": PRINT 

27 HTAB 9: PRINT "(C)REATE NEW SHAPE": PRINT 

28 HTAB 9: PRINT "(A)DD SHAPE TO TABLE": PRINT 

29 HTAB 9: PRINT "(V)IEW SHAPES": PRINT 

30 HTAB 9: PRINT "(L)0AD SHAPE TABLE": PRINT 

31 HTAB 9: PRINT "(S)AVE SHAPE TABLE": PRINT 

32 HTAB 9: PRINT "(Q)UIT": PRINT 

33 PRINT " „. 

7: HOME ' F0KE 

34 REM MENU COMMANDS 

3 - IS,! «T- 4 ; 6 368™ " C0MMMD? GET ^ " P ™ < 

41 IF PK = 73 THEN 50 
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42 IF PK = 67 THEN 100 
A3 IF PK = 65 THEN 500 

44 IF PK = 86 THEN 600 

45 IF PK = 76 THEN 65 

46 IF PK = 83 THEN 700 

47 IF PK = 81 THEN 2000 

48 GOTO 39 

49 REM INITILIZE TABLE 

50 HOME : PRINT : INPUT " NO. OF SHAPES IN TABLE? ";MAX 
52 POKE 2048, MAX 

54 FOR I = 1 TO 2 * MAX + 1: POKE 2048 + 1,0: NEXT I 
56 ADDR = 2050 + PEEK (2048) * 2 

58 M = 2 + MAX * 2: POKE 2050, M - 256 * INT (M / 256) 

59 POKE 2051, INT (M / 256) 

60 HOME : GOTO 39 

64 REM LOAD SHAPE TABLE 

65 HOME : PRINT : INPUT " SHAPE TABLE NAME ? ";NAME$ 
67 PRINT D$;"BL0AD";NAME$;",A$800" 

70 N = PEEK (2049) :MAX = PEEK (2048) 

76 HOME : IF MAX > N THEN 39 

78 PRINT "SHAPE TABLE FULL!": GOTO 2000 

99 REM CREATE NEW SHAPE 

100 IF N = MAX THEN 450 

101 ADDR = 2048 + PEEK (2050 + 2 * N) + 256 * PEEK (2051 + 
2 * N) 

102 IF N = THEN ADDR = 2050 + MAX * 2 

103 IF AFLAG = 1 THEN N = N + 1 

104 POKE 2049, N 

106 HGR : HCOLOR= 3: SCALE= 1: ROT= 0: CYCLE = 
108 FOR X = TO 250 STEP 10: HPLOT X,0 TO X.150: NEXT X 
110 FOR Y = TO 150 STEP 10: HPLOT 0,Y TO 250, Y: NEXT Y 
112 HOME : VTAB 22 

114 INPUT "ENTER STARTING COORDINATES X,Y? ";X,Y 

115 IF X < 1 OR X > 25 THEN 112 

116 IF Y < 1 OR Y > 15 THEN 112 

117 X = 10 * X - 5:Y = 10 * Y - 5 

118 DRAW 1 AT X,Y:XS = X:YS = Y 

120 HOME : VTAB 22: PRINT "MOVE PLOT CURSOR WITH KEYS" 

122 PRINT "J -LEFT, K -RIGHT , I -UP, M - DOWN" 

124 PRINT "P -PLOT ,E -ERASE LAST PLT , Q -QUIT": POKE 36, 

41 

126 KY$ = "":KSVE$ = "": GOTO 145 

128 IF FLAG = 1 THEN 132 

130 XDRAW 1 AT XI, Yl 

132 XI = X:Y1 = Y : FLAG = 



135 XDRAW 1 AT X,Y 

140 KI$ = KSVE$:KSVE$ = KY$ 

145 GET KY$ 

150 IF KY$ < > "I" THEN 160 

155 SYMBOL = 0:Y = Y - 10: IF Y = > THEN 225 
157 Y = Y + 10: CALL - 1052: GOTO 145 
160 IF KY$ < > "K" THEN 170 

165 SYMBOL = 1 :X = X + 10: IF X < =250 THEN 225 
167 X = X - 10: CALL - 1052: GOTO 145 
170 IF KY$ < > "M" THEN 180 

175 SYMBOL = 2:Y = Y + 10: IF Y < = 150 THEN 225 
177 Y = Y - 10: CALL - 1052: GOTO 145 
180 IF KY$ < > "J" THEN 190 

185 SYMBOL = 3:X = X - 10: IF Y = > THEN 225 

187 X = X + 10: CALL - 1052: GOTO 145 

190 IF KY$ < > »P" THEN 200 

195 FLAG = 1: GOSUB 300: GOTO 135 

200 IF KY$ = "Q" THEN 400 

205 IF KY$ < > "E" THEN 145 

210 HCOLOR= : FLAG = 0: GOSUB 300 

220 KSVE$ = KI$: HC0L0R= 3: GOTO 130 

225 IF KSVE$ = "P" THEN SYMBOL = SYMBOL + 4 

230 CYCLE = CYCLE + 1 

235 IF CYCLE < > 1 THEN 245 

240 BYTE = SYMBOL: GOTO 128 

245 IF CYCLE < > 2 THEN 270 

250 BYTE = BYTE + 8 * SYMBOL 

255 IF BYTE > 7 THEN 128 

260 BYTE = BYTE + 8: POKE ADDR,BYTE:ADDR = ADDR + 1 

265 BYTE = 24: CYCLE = 2: GOTO 128 

270 IF SYMBOL > 3 THEN 280 

275 BYTE = BYTE + 64 * SYMBOL 

280 POKE ADDR, BYTE: ADDR = ADDR + 1 

285 IF SYMBOL = OR SYMBOL > 3 THEN 295 

290 CYCLE = 0: GOTO 128 

295 CYCLE = 1 : BYTE = SYMBOL: GOTO 128 

300 FOR Y2 = Y - 3 TO Y + 3 STEP 6: HPLOT X - 1 Y2 TO X + 1 
,Y2: NEXT Y2 

?Y2s SeXT Y ?2 = Y " 2 T ° Y + 2 STEP 4: HPLOT X - 2,Y2 TO X + 2 
^° Y2 F0R Y2 o y _ i TO Y + 1: HPLOT X - 3,Y2 TO X + 3,Y2: NE 

315 IF X = XS AND Y = YS THEN RETURN 
320 XDRAW 1 AT X,Y: RETURN 
400 IF KSVE$ < > "P" THEN 430 
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405 IF CYCLE < > 2 THEN 415 
410 POKE ADDR , BYTE : ADDR = ADDR + 1 
415 IF CYCLE < > 1 THEN 425 
420 BYTE = BYTE + 32: GOTO 430 
425 BYTE = 4 

430 POKE ADDR, BYTE: ADDR = ADDR + 1 
435 POKE ADDR, 0: ADDR = ADDR + 1 

440 POKE - 16303,0: HOME : VTAB 22: PRINT " (A)DD SHAPE TO 

TABLE IF CORRECT" :AFLAG = 0: GOTO 39 
450 HOM : VTAB 22: PRINT " SHAPE TABLE FULL!!!": GOTO 39 

499 REM ADD SHAPE TO TABLE 

500 HOME : IF AFLAG = 1 THEN 540 
502 OFF = ADDR - 2048: AFLAG = 1 
505 IF N < > MAX THEN 515 

510 HOME : VTAB 22: PRINT "TABLE FULL WITH THIS SHAPE!!!" 
515 IF N > MAX THEN 550 

520 POKE 2050 + 2 * N, OFF - 256 * INT (OFF / 256) 
525 POKE 2050 + 2 * N + 1, INT (OFF / 256) 
530 GOTO 39 

540 VTAB 22: PRINT "NO SHAPE TO ADD!": GOTO 39 

550 VTAB 22: PRINT "TABLE FULL CAN'T ADD SHAPE!!!": GOTO 39 

599 REM VIEW SHAPES 

600 HOME : VTAB 20: INPUT "VIEW LAST SHAPE Y/N? ";Q$ 
605 IF Q$ = "Y" THEN 627 

610 VTAB 20: INPUT "WHICH SHAPE NUMBER TO VIEW? ";K 
615 IF K = < N THEN 625 

620 PRINT "SHAPE #";K;" DOESN'T EXIST!": GOTO 39 
625 M = K: GOTO 630 
627 M = N 

630 HGR : POKE 233,8: SCALE= 1: DRAW M AT 50,75 
635 SCALE= 3: DRAW M AT 165,75 

638 VTAB 21: PRINT " SCALE=1 SCALE=3 SHAPE# ";M 

640 SCALE= 1: POKE 233,3: VTAB 23: PRINT " PRESS ANY 

KEY!": POKE 36,41 

645 GET Q$: POKE - 16368,0: POKE - 16303,0 

650 HOME : VTAB 22: IF AFLAG = THEN PRINT " (A)DD SHAPE 

TO TABLE IF CORRECT" 

655 GOTO 39 

699 REM SAVE 

700 HOME : PRINT : INPUT "SHAPE TABLE NAME? ";NAME$ 
705 PRINT D$;"BSAVE";NAME$;",A2048,L";ADDR 

710 HOME : GOTO 39 
2000 TEXT : END 
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SIMPLE GRAPHIC ANIMATION USING APPLE SHAPE TABLES 



Apple shape tables can be incorporated very easily into games to produce 
animation. The principle is elementary. A shape is drawn to the screen in one 
position, then erased before moving it to the next position. If the move is in 
small increments, and if the animation frame rate is fast enough, the object will 
appear to have fluid motion. This is exactly how cartoons are animated. 

Applesoft has a number of commands which work with shape tables. Any 
shape in a table can be drawn to the screen with the command, DRAW N AT 
X,Y , where N is the shape number in the table, and X and Y are the screen 
coordinates to plot the shape. The DRAW command plots over the 
background, thus erasing whatever was there previously. There is an alternate 
command: XDRAW, which exclusive-or's the screen where the shape is plot- 
ted. This means if the background is black, the pixels are lit (white) when the 
shape is XDRAWn to the screen, and they revert back to black when 
XDRAWn again. But if the background is white and a white shape is 
XDRAWn to the screen, the pixels are reversed, so that the shape becomes 
b ack. Similar complementary effects occur if the background color is green 
blue, orange or violet. ' 

Shapes can be rotated with the ROT command or scaled with the SCALE 
command. Values can range from 0-255. Values for both SCALE and ROT 
must be set to some value before drawing a shape for the first time. 

When a shape is drawn at a scale larger than one ( SCALE =0 is equivalent 
to 256 ) , the computer will draw more than one point for each unit vector. If 
the scale is four, four points will be drawn for each single plotting vector. 

Although rotation angles can range from 0-63, the actual number of rotation 
angles depends on the shape's scale. When the scale is set to 1, rotations can 
only occur in 90 degree increments (0=0 degrees, 16 =90 degrees, 32 = 180 
degrees, and 48 = 270 degrees). Shape rotations at SCALE = 2 can be in- 
cremented by 45 degrees, and by specifying SCALE 5 or greater, all 64 rota- 
tional angles are possible. 





62 A 



48 4- 




10 
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ROTATION ANGLES 
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When a shape is plotted to the screen, Applesoft needs to know the location 
of the stored shape table. Locations 232 and 233 decimal contain the starting 
address of the table, lo byte first. Thus, if the table were stored in memory at 
$300 or 768 decimal, Applesoft would be informed with POKE 232,0 : POKE 
233,3 (00 being the lo order byte and 03 being the hi order byte). 

It is important to find a safe spot in memory for your table, a place where it 
won't be overwritten by either the Applesoft program or its variable storage 
space. Short shape tables can be placed in page three of memory (locations 
$300 - $3CF) as long as you aren't using those locations for any other 
machine language routine, such as sound. An alternate location would be 
above the string storage space at HIMEM:. This involves resetting the 
pointers to a lower value. Addresses 115 and 116 ($73 and $74) contain the 
latest HIMEM: values, stored as lo byte first. The new address can be com- 
puted by the following statements. 

PRINT PEEK(116)*256 +PEEK(115) -X 

where X is the length of the shape table. 

HI = INT ( HIMEM/256 ) 

LO = HIMEM - 256* HI 

Then use the statements POKE 116,HI : POKE 115,LO to reset HIMEM:. 

The shape table is then BLOADed at this address and locations 232 and 233 
are set to point to the table. 

Sometimes it is best to illustrate a concept with an example. Many animated 
shapes like gun crosshairs are moved around the screen by paddle or joystick 
control. We can take shape #2, which is shaped like a cross, from our previous 
shape table example, and XDRAW it to the screen at a position determined by 
the settings of the two paddles. Remember that if you XDRAW a shape to the 
screen the first time, the shape appears. But if you XDRAW a shape that is on 
the screen, it will disappear. 

The paddles in this example do more than just position the crosshair. If but- 
ton #0 is depressed, the paddle setting changes the SCALE, and if paddle #1 is 
depressed, that paddle setting varies the ROT (rotation). Thus, you are able to 
observe the various effects that occur when varying the drawing parameters. 
Wrap-a-round is the most observable effect. This occurs when part of a shape 
crosses the screen's borders. This feature, which is performed automatically, 
can be either a help or a hindrance depending on the desired effect. There are 
times when you would like your shape to exit cleanly off one side of the screen 
without appearing at the opposite side. In those cases, you will have to test the 
screen coordinates so that wrap-a-round doesn't occur. Others who have, for 
example, a freely-floating spaceship, will be pleased by the convenience. 

For convenience sake, I poked the shape table into memory at location 768 



($300) with a FOR-NEXT loop that reads the values in a DATA statement. 
The hexadecimal shape table values have been converted to decimal values for 
the data. The alternate method is to enter the monitor and put the values into 
memory directly at $300, then BSAVE the table (BSAVE SHAPE 
A$300,L$10 or BSAVE SHAPE, A768.L16). 

Several of the paddle-controlled variables are scaled in the program Paddle 
values range from - 255. To obtain X coordinate values, which range from 
0-279, the paddle values are multiplied by 1.09, and Y values are divided by 
1.6 to keep them within the screen boundaries of 0-191. The SCALE was also 
trimmed to values to 32 by dividing by 8. I think you will find the code and 
the accompanying flow chart clear. 



no 



SWITCH #0 PRESSED? 



yes 



no 



-> SWITCH #1 PRESSED? 



SCALE = PDL(0)/8 + 1 



ye 



t 



yes 



SWITCH #0 PRESSED? 



no 



-> ROT = PDL(l) / 4 



yes, 



SWITCH #1 PRESSED? 



no 



X = INT( PDL(0)*1.Q9)~| 



Y = INT( PDL(l) / 1.6) 



XDRAW2 AT X,Y 



DELAY 



XDRAW2 AT X,Y 



1 POKE 232,0: POKE 233,3 

5 FOR I = TO 15: READ V: POKE 768 + I,V: NEXT I 
10 HGR : POKE - 16302,0: HCOLOR= 3 
15 SCALE= 4: ROT= 

20 BUT m PEEK ( - 16287): IF BUT < 128 THEN 60 

30 SALE= INT ( PDL (0) / 8 + 1) 

32 XDRAW 2 AT X,Y 

34 FOR DE = 1 TO 50: NEXT DE 

36 XDRAW 2 AT X,Y 

40 BUT = PEEK ( - 16287): IF BUT > 127 THEN 30 
50 GOTO 90 

60 BUT = PEEK ( - 16286): IF BUT < 128 THEN 90 

70 ROT= INT ( PDL (1) / 4) 

72 XDRAW 2 AT X,Y 

74 FOR DE = 1 TO 50: NEXT DE 

76 XDRAW 2 AT X,Y 

80 BUT = PEEK ( - 16286) : IF BUT > 127 THEN 70 

90 X = INT ( PDL (0) * 1.09) 

100 Y = INT ( PDL (1) / 1.60) 

110 XDRAW 2 AT X.Y 

120 FOR DE = 1 TO 50: NEXT DE 

130 XDRAW 2 AT X,Y 

140 GOTO 20 

200 DATA 2,0,6,0,9,0,44,62,0,44,46,62,62,60,44,0 



Drawing shapes to the screen with XDRAW commands isn't the only 
method of drawing if erasing background is not a concern. The DRAW com- 
mand works just as well for putting an object on the screen. The XDRAW 
command is still used for erasing the object. However, the DRAW command 
doesn't work properly at certain combined rotation angles and scale factors. 
This can be demonstrated in the last program by changing the XDRAWs in 
lines 32, 72 and 110 to DRAW commands. Now if the program is run, pixels 
from the shape sometimes aren't erased at some rotation angles with large scale 
factors. Thus, it is safer to always use the XDRAW command. 
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CHARACTER GENERATORS 



Character generators are designed to assist the programmer in placing text 
on the Hi-Res screen. Their ability to mirror the print functions on the text 
screen makes them extremely easy to use from BASIC programs Once the 
character generator is engaged (usually by a CALL to its starting address) any 
print statements within the BASIC program are printed on the Hi-Res screen 
instead of the text page. The HTAB and VTAB functions are fully supported, 
so that Hi-Res text can be accurately positioned. 

Since the character set is in memory rather than in a ROM chip on the 
keyboard, character sets can be changed at will. An Old English or Gothic 
character set could easily be substituted for the standard ASCII character set 
used in the ROM. 

This versatility in character set design has led to users creating character sets 
consisting of playing cards, alien monsters for games, or electrical symbols 
used m schematics. While each character is only 7 X 8 pixels, groups of 
characters can be arranged in a block to form larger shapes. A playing card 
could easily consist of nine different characters, forming a three by three block 
If the Q W E A S D Z X C letters were used to define the queen of hearts, 
printing them to the screen in the following form would produce the playing 

QWE 

ASD 

ZXC 

With 96 different characters available in one character set, you could easily 
represent the 13 card values, if two of the diagonal character elements defined 
the suit. 

Many programmers have taken advantage of the high speed drawing ability 
of these machine language character generators to do animated graphics. Since 
sequences of characters representing shapes can be rapidly "printed" on the 
Hi-Res screen, each animated frame consists of characters "printed" at a new 
position. 

Animating with character generators is relatively easy; however, it does have 
several disadvantages. First, the speed advantage gained by the machine 
language routine is badly offset by interfacing it with Applesoft. BASIC pro- 
grams need to be compiled into machine code in order to produce marginal 
frame rates. Second, animation appears to be jerky due to the nature of the 
character position boundaries. There are only 40 horizontal positions and 24 
vertical positions for placing a character on the Hi-Res screen. Since characters 
can't be drawn in-between positions, they tend to jump 8 pixel positions ver- 
tically and 7 pixel positions horizontally. Lastly, as a rule, character generator 
animation lacks color. Most limit color because of the peculiarities of the Hi- 
Res screen. If, for example, a green character were "printed" in column one, 
it would appear violet in column two. This would require two character sets to 
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compensate for this annoying effect between even and odd columns. It is easier 
to buffer the color to white. 

The need to design new character sets has spawned a number of commercial 
character set editors and character set generators. One versatile package is in- 
cluded in the DOS TOOL KIT that is available from Apple Computer Incor- 
porated. It has a program called "Animatrix" that enables you to construct 
shapes consisting of a number of user-defined characters. The illustration 
below shows a shape drawn on the enlarged grid, while the display in the upper 
right shows which characters these represent. When the character set is attach- 
ed to their character generator ( also in this package ), animated drawings or 
games can be produced. They include an example of an animated game in 
which a joystick-controlled frog leaps in the air to catch passing butterflies. 




FGHIJKR 
LMNOP 



Letters 
< UPPER) 




Graph i c 



ANIMATRIX DRAWING 



Other available character generators are HIGHER TEXT from Synergistics 
Software and SCREEN MACHINE from Softape. Neither is suited for large 
character animation, but HIGHER TEXT can produce very nice color text 
displays. 
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HOW CHARACTER GENERATORS WORK 

Character generators incorporate high speed machine language routines that 
calculate the character's position, then draws it on the screen one byte at a 
time. Characters consist of eight bytes in memory, where each byte represents 
the on/off positions of seven adjacent pixels. Each character is 7 pixels wide by 
8 pixels deep. There are 96 characters in a set, each eight bytes in length, for a 
total of 768 bytes of memory. 

The program has an index to the character set. Each character fits in a par- 
ticular position within the set depending on its ASCII assigned value The 
character numeric values range from decimal 160 to 255, including both upper 
on tI^^ CaSC characters - When the character generator begins processing the 
•a c I T S T tatement within the BASIC Program, it reads a character, determines 
its ASCII value, then indexes to the proper eight bytes in its table to obtain the 
character shape bytes to be drawn to the screen. For example, the program 
says to print an H, which is interpreted as the ASCII character 200 That 
character is 40 characters past the tables first character value. Therefore the H 
shape begins 40 X 8 bytes into the character set storage table. Now those eight 
bytes which will be plotted on the screen don't have to represent an H They 
may have been redefined with a character editor to be a section of a much 
larger shape. 
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00| ASCII 160 (blank) 



ASCII 192 (@) 
ASCII 193 (A) 
ASCII 194 (B) 



Char A = 2048 + (193-160)*8 = 2312 ($908) 



Most character generators use control characters to set various modes. The 
Apple II lacks a true lower/upper case shift key; control characters are used for 
this function. Sometimes, control characters are used to put the user in "Block 
Mode". This saves inserting numerous VTABs and HTABs when printing a 
multi-character shape such as playing cards. Other control characters are often 
used to clear to the end of a line or even an entire page. This facilitates erasing 
the old characters before drawing new ones on the screen. 

Screen animation is obtained by drawing the characters at one position, then 
moving them to the next position. Unlike Apple shape tables, you don't' need 
to XDRAW to erase characters. Instead, leading or trailing blanks are added 
to help erase characters from the old string that may not be erased when draw- 
ing the new string. It is equivalent to using a DRAW command, with spaces 
inserted on either side of the shape. The other alternative is to erase the 
character shape entirely using blanks. This method is more likely to increase 
screen flicker since an extra step is involved. 

The TOOL KIT character generator has one feature not found in other 
packages. It has the ability to preserve background while drawing characters 
A good example of this is the demo game, RIB * BIT. The character generator 
stores the background picture on Hi-Res page two, and ORs the characters 
against it while drawing on Hi-Res page one. This technique also facilitates 
erasing the characters in their previous position. One is relieved of the task of 
printing blanks to the Hi-Res screen before repositioning the character shape. 

In summation, although a character generator is capable of animating sim- 
ple games from BASIC for beginners, it doesn't offer the speed, flexibility, 
color, and smoothness that is required for quality arcade games. Although 
character generators have their place, there are better methods presented later 
in this book. 
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CHAPTER 2 

LO RES GRAPHICS 



The words, machine language and/or assembly language, evoke visions of 
indecipherable code to the novice BASIC language programmer. The code 
looks unfamiliar. But so was BASIC when it was first learned. While BASIC 
has its roots in the English Language and algebraic expressions, assembly 
language appears to consist of unfamiliar op codes or mnemonics that are used 
in conjunction with an unfamiliar base 16 number system called hexadecimal. 

It is my intent in this chapter to teach you the fundamentals of assembly 
language programming by comparing it to similar code written in BASIC. 
Rather than try to teach all aspects of the language, I'll concentrate only on the 
operations needed to do simple Lo-Res plotting and, later, additional opera- 
tions to enable you to write a Lo-Res Breakout game. 

A good assembler is needed to write assembly language programs. Although 
owners of Apple II Integer BASIC machines have mini-assemblers built-in, 
they don't offer the flexibility needed to write anything other than short pro- 
grams. A good assembler allows you to enter assembly language code by line 
number and later edit, insert or delete particular lines. Since any line of code 
can have a label in its first field, the assembler will automatically calculate the 
branches or "GOTOs" to lines referenced with these labels. Also, if you wish 
to store a value in a variable called "ZAP", the assembler which assigns a 
memory storage location for the variable, and will automatically furnish the 
correct memory address for any subsequent store or load operations using that 
variable. 

Readers who already own assemblers may use the one they have. For those 
of you who are new programmers, I would recommend one of two types of 
assemblers. One type of assembler evolved out of the Apple Computer 
organization and the Apple Puget Sound Programming Library 
(CALL - A.P.P.L.E.). These are mostly co-resident assemblers, wherein both 
the assembler and text editor reside in memory simultaneously. They are 
marketed under names like TED II + , BIG MAC , MERLIN, and TOOL 
KIT. Only the TOOL KIT is the exception. It is disk-based and loads either 
the assembler or text editor to memory. Its prime advantage lies in writing 
larger programs; however, its disadvantage is that it is time-consuming to shift 
files back and forth to the disk when testing short programs. I chose and used 
BIG MAC for writing the programs for this book. The other popular assembler 
that I would recommend is the LISA series by Randall Hyde. It is a co-resident 
assembler with a mediocre text editor and fast assembler, but its mnemonics 
are not completely compatible with the other assemblers. It also complements 
Randy's "Using 6502 Assembly Language" book, which I would recommend 



reading for a more comprehensive introduction to assembly language program- 
ming. However, it does not cover graphics. 



BASIC ASSEMBLY LANGUAGE 

The Apple II contains a central processing unit (CPU), a 6502 
microprocessor. It accepts instructions to perform various operations, like tak- 
ing a value and storing it somewhere in memory, adding a number to another 
number located in one of its internal registers, or comparing two values. What 
makes programming in assembly language rather difficult (or at least tedious) 
is that it can only execute one tiny instruction at a time, and only perform its 
operations in three internal registers. These three addressable registers are 
known as the X register, Y register and Accumulator. Each can hold eight 
binary digits called bits, which are individually valued at or 1 . The eight bits, 
collectively called a byte, have values ranging from to 255 decimal or ($00 to 
$FF in hexadecimal notation). 

Essentially, the computer, which is an eight bit microprocessor, can 
manipulate data whose values range from all eight bits off (00000000) to all 
eight bits on (1 1 1 1 1 1 1 1). The average person has great difficulty in thinking of 
values represented by 0's and l's. Fortunately, someone invented a number 
system called hexadecimal, which is base 16 instead of binary or base 2. 

Since 16 is 2 x 2 x 2 x 2, we can divide our eight bits into two four bit groups. 
If you determine each of the decimal equivalents of all the combinations of base 
two representations, you obtain the following table. These values range from 
to 15 decimal. In the hexadecimal numbering system, values above 9 are 
represented by the letters A - F. In order to prevent confusion between decimal 
and hexadecimal numbers, hexadecimal numbers are preceded by a "$". 



BINARY DECIMAL HEXADECIMAL 



0000 $0 

0001 l $1 

0010 2 $2 

0011 3 $3 

0100 4 $4 

0101 5 $5 
OHO 6 $6 
0111 7 $7 

1000 8 $8 

1001 9 $9 

1010 10 $ A 

1011 11 $ B 
HOO 12 $ C 
HOI 13 $ D 
1110 14 $E 
Ull 15 $F 



Hexadecimal numbers are very much like decimal numbers. They can be 
added and subtracted in like manner. The only difference is that instead of 
having units, tens and hundreds, etc, the hexadecimal numbers have units, 
sixteens and 256's, and so forth. Each successive digit is 16 times the position to 
the right instead of ten times as in our decimal system. 



DECIMAL 



HEXADECIMAL 



1 6 5 

1 HUNDRED 

6 TENS 

5 ONES 



$ 1 3 A 
1- 256 



3 SIXTEENS 
A - ONES 



1 x (100) = 100 
+ 6 x ( 10) = 60 
+ 5 x ( 1) = 5 



+ 
+ 



165 DECIMAL 



1 
3 
A 



x (256) 
x ( 16) 
x ( 1) 



256 
48 
10 



$ 13A = 314 DECIMAL 



Hexadecimal numbers are used to address the Apple IPs 48000 + memory 
locations. Each group of 256 bytes ($00 - $FF) is called a page, starting with 
page zero. In 48K Apples, memory is directly addressable from locations $0000 
to $BFFF (0 - 49050). Locations above $BFFF are also addressable, but these 
locations don't contain RAM. These locations, from $C000 - $FFFF, either 
address physical connections like the speaker and game switches at locations 
$C000-$CFFF, or address the ROM (Read Only Memory) beginning at 
$D000 and extending to $FFFF. The latter area contains machine language 
monitor routines and either Integer or Applesoft BASIC, depending on 
whether you have an Apple II or Apple II Plus. 
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MEMORY MAP 





$C000 - $FFFF 


HARDWARE & ROM 


J. J £. 






191 








$yt)UU - $Drrt 


DOS 


150 






149 








$6000 - $95FF 


FREE RAM 


96 






95 


$4000 - $5FFF 


HI-RES PAGE #2 
OR 

FREE RAM 


64 












32 


$2000 - $3FFF 


HI-RES PAGE #1 
OR 

FREE RAM 


31 


$C00 - $1FFF 


FREE RAM 








11 

8 


$800 - $BFF 


FREE MEMORY OR 
PAGE #2 TEXT & LO RES 


7 
4 


$400 - $7FF 


PAGE #1 TEXT a 10 RF^ 


3 


$300 - $3FF 


MONITOR VECTOR LOCATIONS 


2 


$200 - $2FF 


GETLN INPUT BUFFER 


1 


$100 - $1FF 


SYSTEM STACK 





$00 - $FF 


ZERO PAGE - SYSTEM VARIABLES 


PAGE 


HEX RANGE 


USEAGE 



The lowest eight pages of memory, locations $0000 to $07FF, are very im- 
portant; programs should not be stored there. The upper four pages of this sec- 
tion of memory, $0400 to $07FF, are the memory locations of the text screen 
page. Storing values in these locations directly affects the text display. Page 
two, $200 to $2FF, is the keyboard buffer. Inputting data from the keyboard 
tends to wipe out stored data here. Page one, $100 to $1FF, is called the stack. 
It is used by a special purpose register in the 6502 microprocessor for keeping 
track of return addresses when calling subroutines. This scratch area for the 
Stack Pointer is sometimes used for temporary register storage. Page zero, $00 
to $FF, is a very special area. There are a number of zero page addressing in- 
structions. These instructions are two bytes long instead of the usual three, 
because they address a memory location from $00 to $FF instead of $0000 to 
$BFFF. The latter takes an extra byte to address the larger addresses. Also, 
these instructions execute faster. Page zero is used extensively for variable 
storage by the monitor, BASIC interpreters, and DOS. Only some of these 
memory locations are free for your use. You should consult the chart in the Ap- 
ple Reference manual for usable locations. 

When a microprocessor processes a machine language program, it keeps 
track of which instruction it is executing with an internal 16 bit register called 
the program counter. The program counter contains the current address of the 
instruction that is being processed. When the computer finishes with an in- 
struction, it sets a flag or condition in a seven bit, Program Status Word, which 
is a register. For example, if you want to test if a value in the Accumulator is 
equal to zero, you can compare the Accumulator to zero. If true, the zero flag 
will be set and the instruction Branch Equal to Zero (BEQ) will be executed. 
Other flags that can be set are the carry flag, overflow flag, and the negative 
flag. A diagram of the Program Status Word is shown below. 



7 6 5 4 3 2 1 



N 


V 




B 


D 


I 


Z 


c 


SIGN 


OVERFLOW 


BREAK DECIMAL 


INTERRUPT ZERO 


CARRY 



PROGRAM STATUS WORD 



The 6502 microprocessor accepts only machine language instructions. These 
are called op-codes. When the computer encounters a $4C, it performs a 
equivalent to a GOTO in BASIC. The machine language instruction $4C 00 
08 tells the computer to jump to memory location $800. (Remember, addresses 
require two bytes with the low order byte containing $00 and the high order 
byte, $08 — in effect, the reverse order of the actual values. Unfortunately, 
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machine language is difficult to remember, so programmers invented a 
substitute called Assembly language, wherein each op-code is assigned a 
mnemonic such as JMP, BRK, and LDA. The above example looks like this- 
JMP $0800. 

If you were to type the following machine code into the monitor, you would 
see how the monitor disassembler interprets the code, as in the following exam- 
ple: 

>CALL-151 

*800:A9 05 8D 00 09 CE 00 09 AD 00 
09 C9 00 DO F6 60 < CR > 



If you enter a 800L from the monitor you will see the following: 

0800 A9 05 
0802 8D 00 09 
0805 CE 00 09 
0808 AD 00 09 
080B C9 00 
080D DO F6 
080F 60 

The disassembler translates the machine code to easier understood 
mnemonics. In the first line of code, LDA is the mnemonic for Load 
Accumulator. It is the instruction for the 6502 to load the Accumulator with an 
immediate value -in this case, $05. The # sign signifies that it is an "im- 
mediate" instruction; the ($05) is the data portion of the instruction. The STA 
in line two is an "absolute" instruction. It specifies the address in memory for 
storing the byte of data that is in the Accumulator. 

The difference between "immediate" and "absolute" instructions is an 
important point. Let us take the example LDA #$05. In this "immediate" 
instruction, the computer takes the operand ($05) as a value and places it in the 
Accumulator. However, with LDA $05, which is an "absolute" instruction, 
the computer takes the operand as an address from which to load data in the 
computer. In both cases, we get a value in the Accumulator. You can tell the 
modes apart because "immediate" instructions have a # sign before the 
operand. 

You might wonder, what does this code do? It puts the value of 5 in memory 
location $900. Line two stores it there, then the value of that memory location 
is decremented by one in line three. It is then reloaded into the Accumulator to 
be compared against the value zero. If it is zero it falls through to a return - 
from-subroutine and ends; but if it isn't zero it branches back to memory loca- 
tion $805. That location tells the computer to decrement the value in $900 once 



LDA #$05 
STA $0900 
DEC $0900 

t r\A *onnn 

CMP #$00 
BNE $0805 
RTS 



again. The code will perform this small loop until the value in $900 becomes 
zero. At that time, the test for a zero becomes true and the program returns to 
whatever called it. In our case, we called the code from the monitor - thus it 
returns to the monitor. If we had called it from within a program, it would have 
returned to the appropriate place in the code to continue the program. 

Does it work? First, type 900: AA <CR> to place something in that 
memory location, then type 800G <CR> from the monitor. The code will 
return you back to the monitor when it finishes. Type 900 <CR> and a 00 is 
returned. This is the value in memory location $900. If you have an Integer 
machine that has STEP and TRACE, you can do a 800S <CR> instead, 
followed by a S <CR> each time and watch the code single step. The value in 
the Accumulator is the first value displayed. When it finally reaches zero the 
program will reach the RTS and finish. 

This program has a direct analogy to the following BASIC program: 

10 X = 5 

20 X = X - 1 

30 IF X <> THEN 20 

40 RETURN 

The major differences between the two programs is that in assembly 
language there are no line numbers, and you have to take care of every detail. 
BASIC automatically assigns the storage locations of all variables and the loca- 
tion of each instruction in memory. In assembly language programming, we 
have to assign the X variable to memory location $900 and have to calculate 
the relative branch or GOTO so that it references the memory location $805. 
This is done by branching back $F6 bytes, or -8 bytes, to the proper address. 
Yet, many of these details can be greatly simplified if we use an assembler to do 
our programming. 

The same program using an assembler looks like the following: 



LINE LABEL INSTRUCTION COMMENT 
# FIELD FIELD FIELD 











1 




ORG 


$800 


; ASSEMBLE CODE AT $800 










2 




OBJ 


$6000 












3 


X 


EQU 


$900 


;X IS STORED AT $900 


0800: 


A9 


05 




4 




LDA 


#$05 




0802: 


8D 


00 


19 


5 




STA 


X 




0805: 


CE 


00 


09 


6 


LOOP 


DEC 


X 


;X = X - 1 


0808: 


AD 


00 


09 


7 




LDA 


X 




080B: 


C9 


00 




8 




CMP 


#$00 




080D: 


DO 


F6 




9 




BNE 


LOOP 




080E: 


60 






10 




RTS 







The assembler generates identical machine code, but many of the tedious 
details are simplified. Once X is equated to the memory location in line 3, 
references to that variable in lines 5 through 7 are handled automatically. If X 
were assigned to a different memory location because our program was 
lengthened, you would only have to change line 3. Also, labels are allowed. 
They act like line numbers in BASIC. Since the assembler assigns the line of 
code labeled LOOP to a particular memory location, it can calculate the cor- 
rect relative branch automatically when it encounters line 9 during assembly. 
The ORG and OBJ in lines one and two are pseudo-opcodes, understood only 
by the assembler. These do not generate machine code, but tell the assembler 
where the code is to be run and stored, respectively. 

Although the ORG can be specified anywhere in memory, the OBJ is 
peculiar to older assemblers. The OBJ, or the place in memory where the code 
that is built is stored, must not overwrite either the assembler or the text file 
containing your source program. 

Older assemblers, like TED II + , need to be told where the location is. 
Default values are recommended. Newer assemblers like BIG MAC 
MERLIN, and TOOL KIT don't use OBJ pseudo-opcodes since they default 
to those values automatically. 

When an assembler builds its code for an ORG different from its OBJ (as in 
the above example), the code has addresses and relative branches that will only 
execute at the proper ORG runtime address. The assembler, however, saves 
the code that is physically stored, beginning at address $6000. It will not ex- 
ecute if run at that address, so that you need to load or run it at $800 using a 
",A$800" after the name of the program. 

Now that you have had a taste of assembly language programming and have 
seen that it isn't as bad as you thought, there are a number of fundamental 
operations that must be learned. The most important operation is to move 
numbers from one memory location to another. This can be accomplished by 
loading a value into any one of the three internal 6502 registers, the Ac- 
cumulator, X or Y registers, and storing that number somewhere in memory. 
A LDA (Load Accumulator) instruction can be carried out in several different 
ways depending on its addressing mode. First, we can load the Accumulator 
with a real hexadecimal value (LDA #$05). This is called Immediate Mode Ad- 
dressing. Sometimes, we need to be able to load the Accumulator with a 
variable stored in a memory location (LDA $900). This is called Absolute Ad- 
dressing. The only other addressing mode which we will discuss for the time 
being is the indexed addressing mode. It takes the form of LDA $900,X or 
LDA $900,Y depending on whether the X or Y register is used as an index. If, 
for example, the X register contains #$05, then the instruction above loads the 
value from location $900 + $5 or $905. This addressing mode is used primarily 
for indexing into tables stored at particular memory locations. 
^ Store operations are similar to load operations. You can store a value into an 
"absolute" memory location, or you can store indirectly into a memory loca- 
tion, offset by the value contained in either the X or Y register. 
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In summary, the table below shows the various load and store operations. 



LOAD 



STORE 



ACCUMULATOR X REGISTER 
LDA #$05 LDX #$05 

LDA $900 LDX $900 

LDA $900,X LDX $900,Y 

LDA $900,Y 



STA $900 
STA $900, X 
STA $900,Y 



STX $900 
STX $900, Y 



Y REGISTER 
LDY #$05 
LDY $900 

LDY $900,X 

STY $900 
STY $900,X 



Sometimes it is necessary when counting cycles or looping through code to 
increment or decrement a value directly - similar to a FOR-NEXT loop in 
BASIC. In assembly language, either the X and Y registers or any memory 
location can be incremented or decremented. If the X register contained $FE, 
then it would contain $FF when incremented. But if it contained $FF, it would 
wrap around to become $00. The computer informs you by setting a zero flag 
in its Program Status Register. 

ACCUMULATOR X -REG Y -REG MEMORY LOCATION 

INC BY 1 NOT AVAILABLE INX INY INC $900 

DEC BY 1 NOT AVAILABLE DEX DEY DEC $900 



Program flow can be altered, as in BASIC, with equivalent instructions that 
resemble GOTO, GOSUB, and IF-THEN statements. The JMP instruction is 
equivalent to a GOTO statement in that it can go to any location in the 
machine to continue executing code. JMP $AD6C instructs the computer to 
continue executing code beginning at address $AD6C. The GOSUB statement 
is identical to a JSR (Jump Subroutine) in machine language. When the com- 
puter executes the instruction JSR $FCA8, it pushes the two-byte memory 
address of the instruction onto the stack, so that when it returns from the 
subroutine at $FCA8 via an RTS (ReTurn from Subroutine), it will know the 
address of where to continue the program. When it returns, it pulls that return 
address off the stack and increments it by one, so that it points to the next 
executable instruction. The stack is like a dish dispenser. Bytes are pushed on 
the stack in order and pulled off in reverse order. New bytes are added to the 
top, while the rest of the bytes on the stack are pushed deeper. 

The IF-THEN statement is simulated by a number of branch instructions 
which test the Program Status Register for which flags are set. Flags are usually 
set by compare operations. You can compare a value against the value stored 
in either the Accumulator or X and Y Registers. The mnemonics are CMP, 
CPX and CPY, respectively. For example, 
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LDA $900 ;L0AD ACCUMULATOR WITH VALUE AT $900 
CMP #$05 ; COMPARE $5 WITH ACCUMULATOR 



Different flags are set depending on the result. 

Branch instructions are very similar to a JMP instruction (which is an 
unconditional branch), except that only under certain circumstances will it 
cause program flow to continue at a different location. For example, if we were 
to test for that wrap-a-round case when we incremented the X- register that 
contained $FF, we would want to test the Zero Flag with a Branch Equal Zero ( 
BEQ ) instruction, and go to some label if the condition is true. 



LDX $900 ;L0AD X REGISTER WITH VALUE IN MEMORY 
INX INCREMENT X- REGISTER 

BEQ SKIP ;TEST IF 0, AND IF TRUE GO TO SKIP 
RTS ; RETURN TO MAIN PROGRAM 

SKIP LDA #$05 



This short example loads a value from the memory location into the X 
register, then increments it. If wrap-a-round occurs, the test for a zero flag 
causes the program to jump to a label called SKIP, and the code does not return 
to the program that called it via the RTS. There are numerous tests on each of 
the flags in the Program Status Register. A summary is shown below. 



BCC - 


Branch if the carry flag is clear. 


C 


= 


BCS - 


Branch if the carry flag is set. 


C 


= 1 


BEQ - 


Branch if the zero flag is set 


z 


= 1 


BNE - 


Branch if the zero flag is clear 


z 


= 


BMI - 


Branch if minus 


N 


= 1 


BPL - 


Branch if plus 


N 


= 


BVS - 


Branch if overflow is set 


V 


= 1 


BVC - 


Branch if overflow is clear 


V 


= 



Most assemblers offer alternative mnenomics for BCC and BCS. Since, dur- 
ing comparisons, the carry flag is set when the value is equal or greater than the 
value compared, BCS might be called BGE ( Branch Greater or Equal ). 
Likewise, BCC is equivalent to BLT ( Branch Less Than ). Why use these alter- 
natives? Because they are easier to remember and visualize, and they make it 
clear that you are doing logical comparisons rather than testing the results of an 
addition or subtraction. 
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There is one other important concept that should be understood when doing 
comparisions. I implied that the subsequent branch was like a GOTO in 
BASIC or like a JMP instruction in machine language. This is not entirely 
true, since the range of the branch can not exceed - 126 to +129 bytes. This is 
because the branch instruction is only two bytes long. The first byte is the in- 
struction code and the second the relative address. It takes a two byte address 
to branch to any place in memory (Except Page Zero). The JMP instruction 
has the advantage that it is three bytes long. In most cases, this limitation will 
not cause problems. But if a branch out of range error occurs, you must reverse 
the test so that it will reach the required destination via a JMP instruction. 

EXAMPLE: If BEQ SKIP is out of range then substitute the following: 



This change causes the program to drop through to the JMP instruction if 
the zero flag was set, and then jump to location SKIP. However, if the zero flag 
is not set, it will advance ahead five bytes to the instruction following the JMP. 
All of the other branch instructions work in a similar manner. This gives the 
equivalent of a Long Branch. 

Simple addition and subtraction of unsigned numbers is easily accomplished 
in machine language. All addition and subtraction must be performed one byte 
at a time. Thus, large numbers or multi-byte numbers (those that exceed $FF), 
must be added or subtracted one byte at a time, and the carry flag must be 
accounted for. It's actually not much different than addition of two multi-digit 
long decimal numbers. Those numbers have a digit in the one's column, 
another in the ten's, etc. If you add 65 to 78, you add the one's column first. 
Five plus eight equals 13. The value in the one's column is 3; you then carry 
the one into the tens digit before you add the two numbers in the ten's column. 
Hexadecimal addition is similar. You clear the carry before you add. If the sum 
of the two values exceeds $FF, the carry is set. Since you don't clear the carry 
when adding the next higher byte, the resultant answer will be the sum plus the 
previously computed carry, as in the following example: 



BNE *+$5 
JMP SKIP 



or 



BNE A 
JMP SKIP 



A NOP 



EXAMPLE 



+CARRY 

63 
+ 02 



F4 
+ 16 



66 



OA 



SETS CARRY 
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The code for additions and subtractions is as follows: 



ADDITIONS 



CLC 

LDA #$F4 

ADC #$16 

STA LOW 

LDA #$63 

ADC #$02 

STA HIGH 



CLEAR CARRY 
LOAD LO ORDER BYTE 
ADD WITH CARRY 
STORE LO BYTE 
LOAD HI ORDER BYTE 

ADD WITH CARRY (NOTE DON'T CLEAR CARRY) 
STORE HI BYTE 



SUBTRACTIONS 

SEC ; SET CARRY FLAG 

LDA #$F4 ; LOAD VALUE 

SBC #$16 ; SUBTRACT WITH CARRY 

STA VALUE; STORE ANSWER 



You should be aware that the rules for subtraction are different than for ad- 
dition. The carry must be set first. This is equivalent to a borrow in subtrac- 
tion. After the subtraction operation, the carry will be clear if an underflow 
(borrow) occurred. The carry will be set otherwise. Setting the carry is very im- 
portant, a step that many beginners forget. The results are invariably incorrect 
if this step is skipped - and possibly even "random", since the status of the 
carry flag can be on or off when the subtraction operation is performed. This 
can make debugging difficult. 
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LO-RES SCREEN 



The Lo-Res screen occupies the same memory locations as the text page: 
$400 to $7FF for page one and $800 to $BFF for page two. When the Lo-Res 
graphics mode is toggled, the 1024 memory locations are presented as colored 
blocks rather than ASCII characters. Each ASCII character becomes two col- 
ored blocks, stacked one upon the other. Since the text page contains 24 lines of 
forty characters, the Lo-Res screen shows 48 rows of blocks, 40 blocks wide. 
Each block can be any one of 16 colors. 

LOW - RESOLUTION GRAPHICS COLORS 



DECIMAL HEX 


COLOR 


DECIMAL 


HEX 


COLOR 





$0 


BLACK 


8 


$8 


BROWN 


1 


$1 


MAGENTA 


9 


$9 


ORANGE 


2 


$2 


DARK BLUE 


10 


$A 


GREY II 


3 


$3 


PURPLE 


11 


$B 


PINK 


4 


$4 


DARK GREEN 


12 


$c 


LIGHT GREEN 


5 


$5 


GREY I 


13 


$D 


YELLOW 


6 


$6 


MEDIUM BLUE 


14 


$E 


AQUAMARINE 


7 


$7 


LIGHT BLUE 


15 


$F 


WHITE 



Since each screen memory location represents two colored blocks in Lo-Res, 
each byte is divided into two equal halves called nibbles (4 bits). The value 
which is in the lower nibble of the byte determines the color for the upper 
block, and the higher order nibble determines the color for the lower block. 
Thus, if memory location $400, which is the first position in the first row, con- 
tains $D1, then the upper block is magenta and the lower block is yellow. 



LOCATION $400 



MAGENTA 



YELLOW 



VALUE 
$D1 



I would like to point out that the map of the text screen is not sequential in 
memory. Like its big brother, the Hi-Res screen, the first 40 bytes map across 
the first row, but the second 40 bytes represent a row which is a third of the way 
down the screen. The third 40 bytes consitute a row in the bottom third of the 
screen. The exact order is not important at this time, because monitor 
subroutines calculate the base address for any Lo-Res color plotting 
automatically. To plot any Lo-Res point you need only give the monitor 
subroutine located at $F800 the row and column to plot and the proper color. 
The column is loaded into the Y register, the color into memory location $30, 
and the row into the Accumulator. A call to $F800 will plot a Lo-Res dot to the 
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screen, and will be seen if the Lo-Res graphics display is activated first. The 
dot's value is always placed into Lo-Res memory by this subroutine, even if 
you are viewing Hi-Res screen memory. 

I would like to interject a word of caution when inputting color values for Lo- 
Res plotting subroutines. Because setting the proper color nibble depends on 
whether you are plotting on an odd or even row, it is safer to put the color 
desired in both low and high nibbles. To illustrate the point, let's assume we 
placed a $01 in the color register and we wanted to plot the point on row col- 
umn 0. The plotting subroutine would use the lower order nibble $1 to plot the 
magenta dot, then it would ignore the higher order nibble. However if we 
choose instead to plot at row 1 , column , the subroutine will use $0 for the col- 
or and ignore the lo order nibble. Thus, the screen would remain black The 
solution is to put the color in both nibbles. Placing $11 in the color register will 
always plot the proper color in the above example anywhere on the Lo-Res 

c r r o ts n 



screen . 





FUNCTION 


Y REG 


ACC. 


$0030 


$002C 


$002D 


$FC58 


CLEAR SCREEN 












$FB40 


SET GRAPHICS 












$F800 


PLOT A POINT 


COLUMN 


ROW 


COLOR 






$F819 


HORIZ. LINE 


START 
COLUMN 


ROW 
COLUMN 


COLOR 


END 




SF828 


VERT. LINE 




START 


COLOR 




END 








ROW 






ROW 


$F871 


SCRN (X,Y) 


COLUMN 


ROW % 









*(NOTE: COLOR RETURNED IN ACC.) 



It is time to get your feet wet; we're going to plot your first few dots and lines 
on the Lo-Res screen. The code that I'll present is written on the TED II + 
assembler. However, the code is simple enough to type in on the mini- 
assembler if you haven't purchased an assembler as yet. 



ORG 


$6000 


ASSEMBLE CODE AT $6000 


OBJ 


$6000 




JSR 


$FB40 


SET LO-RES GRAPHICS MODE 


JSR 


$FC58 


CLEAR SCREEN 


LDA 


#$66 


SET COLOR BLUE 


STA 


$30 


STORE IN COLOR LOCATION 


LDY 


#$05 


COLUMN 


LDA 


#$03 


ROW 


JSR 


$F800 


PLOT POINT 


LDA 


#$99 


SET COLOR ORANGE 


STA 


$30 


STORE IN COLOR LOCATION 


LDA 


#$08 


END COLUMN 


STA 


$2C 


STORE END COLUMN 


LDY 


#$02 


START COLUMN 


LDA 


#$06 


ROW 


JSR 


$F819 


PLOT HORIZ ROW 


RTS 




RETURN TO MONITOR 



The above program plots a blue dot at location X = 5, Y = 3. It then draws a 
horizontal orange line from X = 2 ,Y = 6 to X = 8 , Y = 6. The program can be 
run by typing a 6000G <CR> from the monitor. If the ORG is assembled 
elsewhere with another assembler type, the appropriate start. For example, if 
LISA assembles your code at $800, then type 800G <CR>. 

As you can see, plotting with Lo-Res graphics is relatively easy but involves 
tedious details. The same code in BASIC, as listed below, would have taken a 
mere five statements. Yet the machine language program will run at least 
twenty times faster. 

10 GR: COLOR =6:PLOT 5,3 
20 COLOR =9:HLIN 2,8 at 6 
30 END 

The ability to plot several horizontal lines having the same color is useful in 
setting up our "Breakout" game. The code is also instructive in that it 
simulates the FOR-NEXT loop in BASIC. We will need a counter which we 
will appropriately call COUNTER. We will first initialize COUNTER to 
zero. Since we aren't going to begin plotting our horizontal lines at row zero 
but instead at row five, we will use a variable called ROW to keep track of our 
vertical row position. The object is to plot four horizontal red lines beginning at 
row 5 and extending through row 8. The beginning column for each row is $5 
and the ending column is $22. 

As we plot each row successively, we increment our variables, COUNTER 
and ROW. The variable COUNTER is then tested to see if it has reached the 
value #$04. If it has, the code exits the loop. Otherwise, it branches back to 
LOOPA so that it plots the next row. When it has plotted all four red lines, it 
exits. The code and flow chart are shown below. 
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COUNTER = 
ROW = 5 



PUT COLOR INTO $30 



PUT END COLUMN INTO $2C 



» LOAD ROW INTO ACCUMULATOR 



PLOT HORIZ. LINE 



ROW = ROW + 1 



COUNTER = COUNTER + 1 



no 



IS COUNTER = 4? 



yes 



DONE 



LDA 


#$00 




STA 


COUNTER 




LDA 


#$05 ; START FIFTH ROW 


STA 


ROW 




LDA 


#$11 


RED COLOR FIRST 4 ROWS 


STA 


$30 


COLOR STORAGE 


LDA 


#$22 


END COLUMN 


STA 


$2C 




LOOPA LDA 


ROW 




LDY 


#$05 


; START COLUMN 


JSR 


$F819 


PLOT HORIZ LINE 


INC 


ROW 


;NEXT ROW 


INC 


COUNTER 


; COUNTER = COUNTER + 1 


LDA 


COUNTER 




CMP 


#$04 


;HAVE WE DONE ALL FOUR ROWS 


BNE 


LOOPA 


;N0! GOTO LOOPA 


RTS 




; DONE ! 
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The "Breakout" game involves the simplest animation technique available 
on the Apple. We have a ball or, in Lo-Res graphics, a dot, that bounces 
around the screen. It will ricochet off a moveable paddle, the walls, or any of 
the two-by-two sized color bricks. Movement is accomplished by erasing the 
ball at its old position and redrawing it at its new position. The ball is very 
predictable. It changes direction only upon collision, and in all cases (except 
contact with the paddle), simply reverses its direction. The position of contact 
with the paddle determines the ball's direction. Balls striking the left end travel 
upwards and to the left at a 45 degree angle, while balls striking the inside left 
travel in the same direction but at a 60 degree angle. Balls striking the paddle's 
right side travel at similar angles but to the right. 

Determining where the ball struck the paddle is easy. The four block-wide 
paddle is always drawn at row 35 decimal or $23, and the first block begins at 
PADX, a variable controlled by the paddle. The ball's position is always at 
BX,BY , and it has a velocity VX,VY. By comparing the ball's vertical posi- 
tion to PADX first, and then PADX + 1, etc, when a collision is detected, the 
ball's velocity components VX and VY are reset. VY is always reset to -1 so 
that the ball travels upwards. However, VX varies with which block was hit. 
As we mentioned earlier, the two outside blocks would cause the ball to travel 
at 45 degree angles. This would mean a VX of + 1 or - 1. The inside blocks 
would cause the ball to bounce at 60 degree angles or VX at + 1/2 or - 1/2. 

Incrementing the ball's position by 1/2 is not possible in machine code. But 
if the incremented value was first doubled before calculating the ball's new 
position, and the result divided by two, the same result would be obtained with 
the loss of the fractional part. This doesn't matter since the ball can only be 
placed at whole number positions. 

For example: BX = 6 and VY = 1/2 

BX = BX + VY = 6 + 1/2 = 6 (ROUNDED). 
If the numbers were doubled and the result divided by two, then 

BX = 12 + 1 = 13/2 = 6 (ROUNDED). 

If the doubled position is kept rather than discarded and we wished to move 
the ball another 1/2 position, then 

BX = 13 + 1 = 14/2 = 7. 

This would result in the ball moving in the X direction every other cycle. 
With VY = - 1 , it would travel at a 60 degree angle upwards and towards the 
right . 



PADDLE DEFLECTOR 



PADX 




no 



IS BY = $23 



yes 



COMPARE BX TO PADX 



no 



yes 



VY=-1 : VX=-2 

ZZJ — 



COMPARE BX TO PADX+1 



yes 



no 



VY=-1 : VX=-1 



COMPARE BX TO PADX+2 



no 



yes 



VY=-1 : VX=+1 



COMPARE BX TO PADX+3f 



yes 



no 



VY=-1 : VX=+2 



*Note all VX values doubled. 



Multiplication and division by powers of two is easy in machine language 
t ft ,Tc e T m ° mC SL iS USCd f ° r mul tiplication by two. The Arithmetic Shift 
u , inst ™ ctlon shifts all of the bits in the Accumulator one position to 

the left. Thus bit is shifted into bit 1, bit 1 into bit 2, etc. Bit seven is shifted 
into the carry bit so that you can use the BCC and BCS instructions to test for 
overflows. For example, if only bit two was on (4 decimal) and we did an ASL 
the bit would be shifted to bit three (8 decimal). Thus, it is easy to multiply b^ 
powers of two by doing repeated ASL instructions. 

Conversely, division is performed by the Logical Shift Right (LSR) instruc- 
tion. Bits are shifted to the right and the bit is shifted into the carry This is 
equivalent to dividing by two with loss of the fractional part 
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ASL 7 6 5 4 3 2 1 



1 



LSR 







LDA #$05 ;L0AD ACCUMULATOR WITH 5 

LSR ; DIVIDE NUMBER BY TWO 

STA $900 ; VALUE STORED IN $900 IS 2 

In order to update the ball's position, we take the ball's old BX.BY position 
in each direction and add the change in position or its directional velocity. 
Negative values are converted to their two's complement equivalent so that all 
operations are simple additions. A negative one becomes a $FF, so that $FF 
plus $02 = $01. 

NEW POSITION = OLD POSITION + CHANGE IN POSITION 

BX = BX + VX X DIRECTION 
BY = BY + VY Y DIRECTION 

The ball's X position is calculated using doubled position values DBX and 
doubled velocities values VX to avoid 1/2 values 

Thus, DBX = DBX + VX and BX = DBX/2. 
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LDA DBX ;OLD DOUBLED X POSITION 
CLC 

ADC VX ;X DIRECTION VALUE 

STA DBX ;THIS DOUBLED VALUE WILL RETAIN FRACTION 

LSR ; DIVIDE BY 2 , WILL LOSE FRACTION 

STA BX ;NEW BALL X POSITION 

LDA BY ;OLD Y POSITION OF BALL 

CLC 

ADC VY ;ADD Y DIRECTION VELOCITY 

STA BY ;NEW BALL Y POSITION 



As the ball bounces around the screen, it will soon collide with one of the col- 
ored 2 by 2 bricks at the top of the screen. Since these are colored blocks, colli- 
sions can be detected between the ball and these blocks with the SCRN func- 
tion. This monitor subroutine will return the value of the color at any position. 
This test is performed before the ball is drawn to the screen, or the test becomes 
meaningless at the ball's position since the ball will plot over the background 
color blocks. 

We will want to delete the block if a non-black ( background ) color is return- 
ed during the test. The brick is four times larger than our ball, so we must 
delete all four blocks at once. This is a troublesome operation, since we might 
have collided with any of the four color blocks that comprise the brick. The 
block that we hit is BX,BY. If we hit the top left block of the brick we will want 
to delete block BX,BY ,BX + 1,BY , BX + 1,BY + 1 , and BX,BY + 1. The 
other three possible collisions with the brick have completely different se- 
quences of blocks to be removed. 

Bricks always begin in an odd row, at an odd column. A test can be made to 
see if our ball is in an odd or even row, or an odd or even column. That will 
determine which of four sequences of blocks to remove. An odd even test can 
be done on BX using a division by two or LSR instruction. Odd values always 
have a one in the bit zero position. An LSR operation shifts them to the carry 
bit. Therefore, odd values set the carry. A BCC (Branch Carry Clear) test will 
determine if the value is odd or even. 



LDA BX 

LSR ; DIVIDE BY TWO 

BCC EVEN ;BX IS EVEN IF CARRY IS CLEAR 
ODD JMP SKIP 

EVEN NOP ; CONTINUE WIH EVEN CODE 



54 



BY/ 2 



evenodd 



eeven 



REMOVE 
X, Y 
X, Y-l 
X-l, Y 
X-l, Y-l 



REMOVE 
X, Y 

X-l, Y 
X, Y+l 

X-l, Y+l 



even 



BX/2 



odd 



t oddeven 



BY/2 



I 



oodd 



REMOVE 
X, Y 

X+l, Y 
X, Y+l 

X+l, Y+l 



1 



REMOVE 
X, Y 
X, Y-l 
X+l, Y 
X+l, Y-l 



->X 









X,Y 



ODD 



EVEN 



COLUMN COLUMN 



ODD 
ROW 



EVEN 
ROW 



'INTERSECTION 
WITH BALL 



Once the block is removed, the score must be incremented by the point value 
for each block. In this game, yellow is worth one point, blue two points, and 
red three points. The score is kept in a memory location called SUM. There 
has been no attempt in this example to convert the hexadecimal value of SUM 
to a decimal value. That type of scorekeeping routine is outlined in Chapter 6. 

The scorekeeping routine first checks the color of the block hit for yellow. If it 
is equal to #$0D (Yellow) it will add #$01 to SUM. Otherwise, it will branch to 
the label NEXT. There it encounters a test for the color blue. If the block isn't 
blue it branches to the label NEXT1. If it is blue, #$02 is added to SUM, 
otherwise #$03 is added to SUM because it must be red. 
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SCORE 



NEXT 



NEXT1 



SCORE1 



LDA 


COLOR 


own 

CMP 


#$0D 


DMT? 


NEXT 


LDA 


SUM 


CLC 




ADC 


#$01 


CTA 




J Mr 


SC0RE1 


i ni 

LDA 


COLOR 


CMP 


#$06 


DMT? 


ATI""" vm i 

NEXT1 


T T» A 

LDA 


SUM 


CLC 




ADC 


#$02 


olA 


OT TAJ 

SUM 


J MP 


SC0RE1 


LDA 


COLOR 


CMP 


#$01 


DMT? 


SC0RE1 


LDA 


SUM 


CLC 




ADC 


#$03 


STA 


SUM 


JSR 


PRINT 


CMP 


#$F0 


BGE 


END 



;HIT YELLOW? 



;HIT BLUE? 



;HIT RED? 



;SUM=240 FOR ALL BLOCKS 



This score will be printed in the text window below the Lo-Res graphics We 
want to print the letters SCORE followed by the value in SUM There is a 
monitor subroutine called COUT that outputs a single character to the screen 
It the cursor position has been previously set, any ASCII character placed into 
the Accumulator will be outputted to the screen. Since strings are usually more 
than one character, the code must be looped so that each character is retrieved 
in its turn, then placed on the screen by COUT. The string can be stored as a 
hexadecimal table in memory beginning at a location labeled STRING Each 
time we load the Accumulator, we index into the table X bytes where X is the 
value in the X-Register. They call the operation LDA STRING X Indirect 
Addressing. The X-Register begins at #$00 and is incremented after each byte 
is outputted to the screen. 

A test is needed to detect the end of the string. Since a general purpose print 
output routine is desired for any length string up to 255 characters , it is best 
not to restrict the test to detecting the length of the string, but to detect a 
character that is never sent to the screen. The hexadecimal 00 (the reverse @ 
sign) is rarely used and is a good choice for a test byte. When the code detects 
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this byte, it knows it has completed the string and exits the print loop. The 
value of SUM is then outputted by the monitor subroutine PRBYTE, which 
prints a single hexadecimal byte. The print subroutine is shown below. 



PR TNT 


i-jl/A 


if <t;nn 

# CpUU 


, iNUbA 1JN1U DIKING BEGINS AT 




T DA 


#<t;os 






STA 




• HTAR 1 ^ 

, niADJ 




t r>A 


M<t.~\ 7 






T^R 


1 AD V 


; V I ABzj 


PRTNT1 


T f)A 


CTDTfJP Y 


;bM Atn ELEMENI OF STRING 






JJUWt 


; FINISHED? 




TCD 

JoK 




; PRINT LETTER 




UNA 




1TT1 "17" m T-1 T "l - 1 \ mi t m 

;NEXT ELEMENT 




JMP 


PRINT1 


;L00P 


DONE 


LDA 


SUM 




JSR 


PRBYTE 


; OUTPUT BYTE SUM 




RTS 






STRING 


ASC 


"SCORE = " 






HEX 


00 





The "Breakout" game needs paddle control. The paddle is used both to in- 
itially start the game by a button press, and to move the deflector back and 
forth at the bottom of the screen. Button presses are the easiest to detect. There 
are three paddle switches that are located at $C061 -$C063. The lowest hard- 
ware location is for paddle #0. If the button is pushed, the value loaded into the 
Accumulator is negative. The program can be put into an endless loop waiting 
for a button press with the following code: 

BUTTON LDA $C061 
BPL BUTTON 

The code will only exit the loop if the button is pressed. 

The paddle's output value ( 0-255 ) can be read by accessing a monitor 
subroutine called PREAD, located at $FB1E. The paddle number is placed in- 
to the X-Register and the value of the paddle is outputted to the Y-Register. It 
is directly equivalent to the BASIC command PDL(O). In our case, we need the 
output clipped to a value (0-31). It is first necessary to divide the value by four. 
This gives a value between 0-64. This range was chosen rather than 0-32, so 
that the player has better control with half the amount of paddle turning. The 
value is then tested to be within that range. If it is less than $05 it is set to $05, 
and if greater than $1F (decimal 31), it is set equal to $1F. This is called clipp- 
ing. 

We have covered all of the pertinent code that is necessary to write a 
"Breakout" game. The only thing left is the flowchart, and that is shown 
below. The complete assembled code follows. 
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DRAW COLOR TARGET BLOCKS & FIELD 



BALL=5 



INITILIZE START POSITION OF BALL I* 



DRAW INITIAL POSITION OF BALL 



DRAW INITIAL POSITION OF PADDLE 



no. 



BUTTON PRESSED? 



yes 



XDRAW OLD POSITION OF PADDLE 



XDRAW OLD POSITION OF BALL 



READ PADDLE 



TRIM PADDLE VALUE (5-31) 



DRAW PADDLE 



UPDATE POSITION OF BALL 
J 



i 

TEST IF BALL HIT PADDLE 



no 



yes 



NEW VX & VY 



TEST IF BALL HIT LEFT SIDE 



yes 



no 



REVERSE VX 



TEST IF BALL HIT RIGHT SIDE 



-yes 



no 



REVERSE VX 



TEST IF BALL HIT TOP 



yes 



no 



REVERSE VY 



TEST IF BALL HIT BOTTOM 



no 



yes 



SUBTRACT 1 BALL 

!> 



TEST IF BY < 17 



no 



yes 



TEST BY SCRN FUNCTION 
IF BALL HIT COLOR BLOCK 



no 



yes 



REMOVE BLOCK ] 



TEST FOR WHICH COLOR 
AND UPDATE SCORE 



REVERSE VY 



TEST IF OUT 
OF BALLS 



yes 


END 


— > 


GAME 



no 



ERASE BALL 
& PADDLE 



DRAW BALL 
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14 


PADX 


DS 










15 


PRT 


DS 










16 


PLEFT 


DS 










17 


SUM 


DS 










18 


BALL 


DS 










19 


COLOR 


DS 










20 


CBALL 


DS 










21 


CPDL 


DS 










22 


PITCH 


DS 










23 


TIME 


DS 










24 


PREAD 


EQU 










25 


COUT 


EQU 










26 


TABV 


EQU 










27 


PR BYTE 


EQU 


6017: 


20 


40 


FB 


28 


PROG 


JSR 


601A: 


20 


58 


FC 


29 




JSR 










30 


*DRAW SCREEN 


601D: 


A9 


88 




31 




T r\* 
LDA 


601F: 


85 


30 




32 




01 A 


6021: 


A9 


23 




33 




LDA 


6023: 


85 


2C 




34 




STA 


6025: 


A9 


00 




35 




LDA 


6027: 


AO 


04 




36 




LDY 


6029: 


20 


19 


F8 


37 




JSR 


602C: 


A9 


27 




38 




LDA 


602E: 


85 


2D 




39 




STA 


6030: 


A9 


01 




40 




LDA 


6032: 


AO 


04 




41 




LDY 


6034: 


20 


28 


F8 


42 




JSR 


6037: 


A9 


01 




43 




LDA 


6039: 


AO 


23 




44 




LDY 


603B: 


20 


28 


F8 


45 




JSR 


603E: 


A9 


00 




46 




LDA 


6040: 


8D 


04 


60 


47 




STA 


6043: 


A9 


05 




48 




LDA 


6045: 


8D 


03 


60 


49 




STA 


6048: 


A9 


11 




50 




LDA 


604A: 


85 


30 




51 




STA 


604C: 


A9 


22 




52 




LDA 


604E: 


85 


2C 




53 




STA 


6050: 


AD 


03 


60 


54 


LOOPA 


LDA 


6053: 


AO 


05 




55 




LDY 


6055: 


20 


19 


F8 


56 




JSR 


6058: 


EE 


03 


60 


57 




INC 


605B: 


EE 


04 


60 


58 




INC 


605E: 


AD 


04 


60 


59 




LDA 


6061: 


C9 


04 




60 




CMP 


6063: 


DO 


EB 




61 




BNE 


6065: 


A9 


66 




62 




LDA 


6067: 


85 


30 




63 




STA 


6069: 


AD 


03 


60 


64 


LOOPB 


LDA 


606C: 


AO 


05 




65 




LDY 


606E: 


20 


19 


F8 


66 




JSR 


6071: 


EE 


03 


60 


67 




INC 


6074: 


EE 


04 


60 


68 




INC 


6077: 


AD 


04 


60 


69 




LDA 


607A: 


C9 


08 




70 




CMP 


607C: 


DO 


EB 




71 




BNE 


607E: 


A9 


DD 




72 




LDA 


6080: 


85 


30 
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STA 



$FB1E 








$FDFO 








$FB5B 








$FDDA 








$FB40 


;SET LORES GRAPHICS MODE 


$FC58 


; CLEAR SCREEN 






& BLOCKS 








If iJIOO 


;SET COLOR BROWN 






$30 








it*?*, j 


;END COLUMN 






$2C 








M no 


;T0P ROW 






W •fKJ 1 * 


; START COLUMN 






tFftl Q 
>j>r oi y 


;PL0T HORIZ LINE 






z / 


;END ROW 






;j>zd 










; START ROW 






itn/i 


; COLUMN 






$rozo 


;PLOT VERT LINE 






#tni 

# JpUl 


; START ROW 






fflpzj 


; COLUMN 






*T7Q OQ 

$rozo 


;PL0T VERT LINE 






ff^UU 








L<UUN I tiK 










; START 5TH ROW 






KUW 










;RED COLOR FIRST 


4 


ROWS 


tin 










;END COLUMN 






* or 
















ff$Uj 


; START COLUMN 






•j>r oi j 


;PL0T HORIZ LINE 






KUW 


;NEXT ROW 














rOIINTFl? 








#$04 








LOOPA 








#$66 


;BLUE COLOR NEXT 


4 


ROWS 


$30 








ROW 








#$05 


; START COLUMN 






$F819 


;PL0T HORIZ LINE 






ROW 








COUNTER 








COUNTER 








#$08 








LOOPB 








#$DD 


; YELLOW COLOR 






$30 









6082: 
6085: 
6087: 
608A: 
608D: 
6090: 
6093: 
6095: 
6097: 
6099: 
609C: 
609E: 

60A1: 
60A3: 
60A6: 
60A9: 
60AB: 
60AE: 
50B0: 
60B3: 
60B5: 
60B8: 
60BA: 
60BD: 
60BF: 
60C2: 
60C4: 
60C7: 
60C9: 



AD 03 
AO 05 
20r*9 
EE 03 
EE OA 
AD OA 
C9 OC 
DO EB 
A9 05 
8D 11 
A9 00 
8D 10 

A9 14 
8D 05 
8D 06 
A9 28 
8D OB 
A9 00 
8D 09 
A9 01 
8D OA 
A9 11 
8D OD 
A9 14 
8D OE 
A9 FF 
8D 13 
A9 CC 
8D 14 



60CC: 20 C2 



60CF: 
60D2: 
60D4: 
60D7: 
60DA: 
60DD: 
60E0: 
60E2: 
60E5: 
60E7: 
60EA: 
60EC: 

60EF: 
60F2: 



60F4: 
60F6: 
60F8: 
60FB: 
60FE: 
6101: 
6104: 
6106: 



AD 13 
85 30 
AC 05 
AD 06 
20 00 
AD 14 
85 30 
AD OE 
85 2C 
AC OD 
A9 23 
20 19 

AD 61 
10 FB 



A9 00 
85 30 
AC 05 
AD 06 
20 00 
AD OE 
85 2C 
AC OD 



60 74 
75 
F8 76 
60 77 
60 78 
60 79 
80 
81 
82 
60 83 
84 
60 85 
86 
87 
60 88 
60 89 
90 
60 91 
92 
60 93 
94 
60 95 
96 
60 97 
98 
60 99 

100 
60 101 
102 
60 103 
104 
63 105 
106 
60 107 
108 
60 109 
60 110 
F8 111 
60 112 
113 
114 
115 
116 
117 
118 
119 
CO 120 
121 
122 
123 
124 
125 
126 
127 
60 128 
60 129 
F8 130 
60 131 
132 
60 133 



60 
60 



F8 



LOOPC LDA ROW 

LDY #$05 

JSR $F819 

INC ROW 

INC COUNTER 

LDA COUNTER 

CMP #$0C 

BNE LOOPC 

LDA #$05 

STA BALL 

LDA #$00 

STA SUM 

♦INITIALIZE VARIABLES 

START LDA #$14 

STA BX 

STA BY 

LDA #$28 

STA DBX 

LDA #$00 

STA VX 

LDA #$01 

STA VY 

LDA #$11 

STA PADX 

LDA #$14 

STA PRT 

LDA #$FF 

STA CBALL 

LDA #$CC 

STA CPDL 

*PRINT INITIAL SCORE 

JSR PRINT 

*DRAW INITIAL POSITIONS 

LDA CBALL 

STA $30 

LDY BX 

LDA BY 

JSR $F800 

LDA CPDL 

STA $30 

LDA PRT 

STA $2C 

LDY PADX 

LDA #$23 

JSR $F819 
*START GAME WITH BUTTON 

BUTTON LDA $C061 

BPL BUTTON 



; START COLUMN 



; INITIAL POSITION BALL 

; INITIAL VELOCITY BALL 

; INITIAL PADDLE POSITION 

; WHITE BALL 
; GREEN PADDLE 

BALLS PADDLE 



COLUMN 
ROW 

PLOT BALL 



; START COLUMN 
; PADDLE ROW 
;PLOT PADDLE 

;NEG IF BUTTON PRESSED 



** M A I N PROGRAM LOOP** 

*XDRAW OLD POSITIONS BALLS PADDLE 

MAIN LDA #$00 

STA $30 

LDY BX 

LDA BY 

JSR $F800 ;XPL0T BALL 

LDA PRT 

STA $2C 

LDY PADX 



6109: A9 23 
610B: 20 19 F8 



134 




LDA 


#$23 


! 135 




JSR 


$F819 


136 


*READ PADDLE 




137 




LDX 


#$00 


138 




JSR 


PREAD 


139 




TYA 




140 




LSR 




141 




LSR 




142 




CMP 


#$20 


143 




BLT 


SKIPP 


144 




LDA 


#$1F 


145 




STA 


PADX 


146 


SKIPP 


CMP 


#$05 


147 




BGE 


SKIPP1 


148 




LDA 


#$05 


149 


SKIPP1 


STA 


PADX 


150 




CLC 




151 




ADC 


#$03 


152 




STA 


PRT 


153 


*DRAW NEW POSITION PADDLE 


154 




LDA 


CPDL 


155 




STA 


$30 


156 




LDA 


PRT 


157 




STA 


$2C 


158 




LDY 


PADX 


159 




LDA 


#$23 ; 


160 




JSR 


$F819 : 


161 


* UPDATE POSITION BALL 



;XPLOT PADDLE 



610E: A2 00 U7 LDX #$00 -PADDLE 

6110: 20 IE FB 138 j S R PREAD 

till' H HI ™ ; PADDLE VALUE(0-255) IN Y REG 

SIS; !I H? t SR DIVIDE BY 4 

t\\ 6 8 : S 05 111 CMP #$2 ° ;CLIP TO (5-31) 

ollB: 90 05 143 rit qs-tdd ' 

611A: A9 IF 

611C: 8D OD 60 

61 IF: C9 05 

6121: BO 02 

6123: A9 05 

6125: 8D OD 60 

6128: 18 

6129: 69 03 

61 2B: 8D OE 60 

612E: AD 14 60 
6131: 85 30 
6133: AD OE 60 156 
6136: 85 2C 
6138: AC OD 60 
613B: A9 23 
613D: 20 19 F8 



;ROW 

PLOT HORIZ PADDLE 



6140: AD OB 60 III "nU^T 1/2 VALUES 

6143: 18 164 CLC DOUBLED X POS VALUE 

till' IS ol 60° III c A f VX ' X DIREC "0N VELOCITY 

6147. 8D OB 60 66 STA DBX ;T HIS DOUBLED VALUE WILL KEEP FRACT- 

614A: 4A 168 ~ I « :™NAL PART OF NEW POSITION 

Jiff 2 0°6 5 6 6 0° i£ S BX !» « L ° SE FRAOT0N 

614E. AD 06 60 170 LDA BY ;0 LD Y POS 

Hill sS 0°6 6 6 0° HI ctj 11 >™ * ™™ VELOCITY 

■ °" uo DU 1/J STA BY -MEW BAII Y PDQTTTriH 

174 *TEST IF BALL HIT SIDES OR PADDLE 

6158: AD 06 60 175 PADDLE LDA BY 

till' fI ol 111 ^ #$23 ' AT PAD °LE ROW? 

t\Ti: 4 F C° °B7 61 ul S LEFT 

6162: AD OD 60 179 PAD1 LDA PADX 

6165: 8D OF 60 180 STA PLEFT 

6168: AD 05 60 181 FIRST LDA BX 

616B: CD OF 60 182 CMP PLEFT 

61 6E: DO OA 183 BNE SECOND 

6170: A9 FF 184 LDA #$FF 

6172: 8D OA 60 185 STA VY -vv l 

6175: A9 FE 186 LDA #$FE 

6177: 8D 09 60 187 S TA VX . V X=-2 

617A: EE OF 60 188 SECOND INC PLEFT 

61 7D: AD 05 60 189 LDA BX 

6180: CD OF 60 190 CMP PLEFT 

6183: DO 08 191 BNE THIRD 

6185: A9 FF 192 LDA #$FF 

6187: 8D OA 60 193 STA VY -VY— 1 



618A: 


8D 


09 


60 


194 




STA 


VX 


VY- 1 
V A 1 


618D: 


EE 


OF 


60 


195 


THIRD 


INC 


PLEFT 


6190: 


AD 


05 


60 


196 




LDA 


BX 




6193: 


CD 


OF 


60 


197 




CMP 


PLEFT 




6196: 


DO 


OA 




198 




BNE 


FOURTH 




6198: 


A9 


FF 




199 




LDA 


#$FF 




619A: 


8D 


OA 


60 


200 




STA 


VY 


• VY— 1 
, V I i 


619D: 


A9 


01 




201 




LDA 


ff>pvj± 


619F: 


8D 


09 


60 


202 




Jin 


VY 

V A 


• VY— 1 
V A=l 


61A2 : 


EE 


OF 


60 


203 


FOURTH 

I \J\J S\ ILL 


INC 


PLEFT 


61A5: 


AD 


05 


60 


204 




LDA 


BX 




61A8: 


CD 


OF 


60 


205 




CMP 


PLEFT 




61AB: 


DO 


OA 




206 




BNE 


LEFT 




61AD: 


A9 


FF 




207 




LDA 


#$FF 




61AF: 


8D 


OA 


60 


208 




STA 


VY 


•VY=-1 


61B2: 


A9 


02 




209 




LDA 


#$02 


61B4: 


8D 


09 


60 


210 




STA 


VX 


VX=2 


61B7: 


AD 


05 


60 


211 


LEFT 


LDA 


BX 




61BA: 


C9 


06 




212 




CMP 


It >}>VJU 


utt t ppf cTr\r>o 

nl 1 Lbr 1 SIDE? 


61BC: 


BO 


OB 




213 






D TPUT 
KlLril 1 


MA 1 


61BE: 


AD 


09 


60 


214 




LDA 


VX 


•REVERSE VX 


61C1 : 


49 


FF 




215 




FOP 


ff3>r r 


COMPLEMENT 


61C3: 


8D 


09 


60 


216 




STA 


VX 




61C6: 


EE 


09 


60 


217 






V A 


VALUE CORRECTED 


61C9: 


AD 


05 


60 


218 


RIGHT 


t nA 


RY 
DA 


61CC: 


C9 


22 




219 




CMP 




nil Klbnl biDhr 


6 ICE: 


90 


OB 




220 




RT T 


TOP 


MA t 


61D0: 


AD 


09 


60 


221 




LDA 


VX 


REVERSE VX 


61D3: 


49 


FF 




222 




EOR 


#$FF 


COMPLEMENT 


61D5: 


8D 


09 


60 


223 




STA 


VX 




618: 


SE 09 60 224 




INC 


VX ; VALUE CORRECTED 


61DB: 


AD 


06 


60 


225 


1 Ur 


T HA 


BY 




6 IDE: 


C9 


01 




226 




pun 


#$01 


HIT TOP? 


\J 1 LjU • 


DO 


OB 




227 




BNE 


BOTTOM 


NO! 


61E2: 


AD 


OA 


60 


228 




i riA 


VY 


REVERSE VY 


61E5 : 


49 


FF 




229 




PHD 


#$FF 


COMPLEMENT 


61E7: 


8D 


OA 


60 


230 




QTA 
o 1 A 


VY 




61EA: 


EE 


OA 


60 


231 




T MP 


VY ; VALUE CORRECTED 


61 ED: 


AD 


06 


60 


232 


ROTTON! 

DU 1 1 VJ11 


T HA 


BY 




61F0: 


C9 


27 




233 




CMP 


#$27 




61F2: 


DO 


3A 




234 




RNF 


BLOCKS 




61F4: 


CE 


11 


60 


235 






BALL 




61F7: 


A9 


FF 




236 




T nA 


#$FF 


BAD SOUND FOR MISSING 


61F9: 


8D 


15 


60 


237 




STA 


PITCH 




61FC: 


8D 


16 


60 


238 




STA 


TIME 




61FF: 


20 


E9 


63 


239 






SOUND 




6202: 


A9 


FF 




240 




LDA 


#$FF ; SHORT DELAY 


6204: 


20 


A8 


FC 


241 




J OK 


$FCA8 




6207: 


AD 


11 


60 


242 




T HA 


BALL 




620A: 


C9 


00 




243 




TMP 


#$00 : ALL BALLS GONE? 


620C: 


DO 


03 




244 




RMP 


CONT 




620E: 


4C 


DD 


62 


245 




IMP 


END 












246 




RATI S 


PADDLE 




6211 : 


A9 


00 




247 


CONT 


LDA 


#$00 




6213: 


85 


30 




248 




STA 


$30 




6215: 


AC 


05 


60 


249 




LDY 


BX 




6218: 


AD 


06 


60 


250 




LDA 


BY 




621B: 


20 


00 


F8 


251 




JSR 


$F800 ;XPL0T BALL 


621E: 


AD 


OE 


60 


252 




LDA 


PRT 





6221: 
6223: 
6226: 
6228: 
622B: 
622E: 
6231: 
6233: 
6235: 

6238: 
623B: 
623E: 
6241: 
6244: 
6246: 
6248: 

624B: 
624E: 
624F: 
6251: 
6254: 
6255: 
6257: 
625A: 
62 5D: 
6260: 
6263: 
6266: 
6267: 
6269: 
626C: 
626F: 

6272: 
6275: 
6277: 
62 7 A: 

62 7D: 
6280: 
6282: 
6284: 
6287: 
6288: 
628A: 
628D: 
6290: 
6293: 
6295: 
6297: 
629A: 
629B: 
629D: 
62A0: 
62A3: 
62A6: 
62A8: 



85 2C 
AC 0D 
A9 23 
20 19 
4C Al 
AD 06 
C9 11 
90 03 
4C C7 

AC 05 
AD 06 
20 71 
8D 12 
C9 00 
DO 03 
4C C7 

AD 05 
4A 

90 12 
AD 06 
4A 

90 06 
20 DE 
4C 72 
20 17 
4C 72 
AD 06 
4A 

90 06 
20 89 
4C 72 
20 50 

AD OA 
49 FF 

8D OA 
EE OA 



253 
60 254 
255 
F8 256 
60 257 
60 258 
259 
260 
62 261 
262 
60 263 
60 264 
F8 265 
60 266 
267 
268 
62 269 
270 
60 271 
272 
273 
60 274 
275 
276 
62 277 

62 278 

63 279 

62 280 
60 281 

282 
283 

63 284 

62 285 

63 286 
287 

60 288 
289 
60 290 
60 291 



AD 12 
C9 OD 
DO OC 
AD 10 
18 

69 01 
8D 10 
4C B3 
AD 12 
C9 06 
DO OC 
AD 10 
18 

69 02 
8D 10 
4C B3 
AD 12 
C9 01 
DO 09 



60 



292 
293 
294 
295 
60 296 
297 
298 
60 299 
62 300 
60 301 
302 
303 
60 304 
305 
306 
60 307 
62 308 
60 309 
310 
311 



BLOCKS 



STA 
LDY 
LDA 
JSR 
JMP 
LDA 
CMP 
BLT 
JMP 



$2C 

PADX 

#$23 

$F819 

START 

BY 

#$11 

SK2 

DRAW 



;XPLOT PADDLE 



;IN AREA OF BLOCKS? 
;YES! 



*TEST COLLISION WITH BLOCK VIA SCRN FUNCTION 



SK2 



LDY 
LDA 
JSR 
STA 
CMP 
BNE 
JMP 



BX 
BY 

$F871 

COLOR 

#$00 

NBLACK 

DRAW 



*FIND WHICH OF FOUR SUBBLOCKS HIT 



; COLUMN 
;ROW 

;SCRN(X,Y) 

; RETURNS OLOR IN ACC. 
;IS BLACK? 

:YES! 



NBLACK 



ODD 



OODD 



ODDEVEN 



EVEN 



EVENODD 
EEVEN 



LDA 

LSR 
BCC 
LDA 
LSR 
BCC 
JSR 
JMP 
JSR 
JMP 
LDA 
LSR 
BCC 
JSR 
JMP 
JSR 



*REVERSE VY 



REV 



LDA 

EOR 
STA 
INC 



BX 

EVEN 
BY 

ODDEVEN 

OODDS 

REV 

ODDEVENS 

REV 

BY 

EEVEN 

EVENODDS 

REV 

EEVENS 

VY 

#$FF 
VY 
VY 



;BX/2 



;BY/2 



;BY/2 



*CHECK COLOR S UPDATE SCORE 
SCORE LDA COLOR 



NEXT 



NEXT1 



CMP 
BNE 
LDA 
CLC 
ADC 
STA 
JMP 
LDA 
CMP 
BNE 
LDA 
CLC 
ADC 
STA 
JMP 
LDA 
CMP 
BNE 



#$0D 
NEXT 
SUM 

#$01 

SUM 

SC0RE1 

COLOR 

#$06 

NEXT1 

SUM 

#$02 

SUM 

SC0RE1 

COLOR 

#$01 

SC0RE1 



;HIT YELLOW? 



;HIT BLUE? 



;HIT RED? 



62AA: 
62AD: 
62AE: 
62B0: 
62B3: 
62B6: 
62B8: 

62BA: 
62BC: 
62BF: 
62C1: 
62C4: 

62C7: 
62CA: 
62CC: 
62CF: 
62D2: 

62D5: 
62D7: 
62DA: 
62DD: 



AD 10 
18 

69 03 
8D 10 
20 C2 
C9 F0 
BO 23 

A9 50 
8D 15 
A9 25 
8D 16 
20 E9 

AD 13 
85 30 
AC 05 
AD 06 
20 00 

A9 80 
20 A8 
4C F4 
60 



60 312 
313 
314 
60 315 
63 316 
317 
318 
319 
320 
60 321 
322 
60 323 
63 324 
325 
60 326 
327 
60 328 
60 329 
F8 330 
331 
332 
FC 333 
60 334 



62DE: 

62E0: 

62E2: 

62E5: 

62E8: 

62E9: 

62EC: 

62EF: 

62F2: 

62F5: 

62F8: 

62FB: 

62FE: 

6301: 

6304: 

b307: 

630A: 

630D: 

6310: 

6313: 

6316: 

6317: 

6319: 

631B: 

631E: 

6321: 

6322: 

6325: 

6328: 

632B: 

632E: 



A9 00 
85 30 
AD 05 
8D 07 
A8 

AD 06 
8D 08 
20 00 
EE 07 
AC 07 
AD 08 
20 00 
EE 08 
AC 07 
AD 08 
20 00 
CE 07 
AC 07 
AD 08 
20 00 
60 

A9 00 
85 30 
AD 05 
8D 07 
A8 

AD 06 
8D 08 
20 00 
CE 08 
AC 07 



60 



F8 



F8 



60 



LDA SUM 
CLC 
ADC 
STA 

SC0RE1 JSR 
CMP 
BGE 

*S0UND FOR HITTING BLOCK 

LDA #$50 

STA 

LDA 

STA 

JSR 
*DRAW BALL 
DRAW LDA 

STA 



#$03 
SUM 
PRINT 
#$F0 
END 



PITCH 
#$25 
TIME 
SOUND 



:SUM=240 FOR ALL BLOCKS 



*DELAY 



LDY 
LDA 
JSR 

LDA 
JSR 
JMP 



CBALL 
$30 
BX 
BY 

$F800 

#$80 

$FCA8 

MAIN 



335 


END 


RTS 




336 


* 






337 


"SO 


BROUTINES 


338 


# 






339 


*ERASE 


BLOCK 


SUBROUTINES 


340 


# 




341 


OODDS 


LDA 


#$00 


342 




STA 


$30 


343 




LDA 


BX 


344 




STA 


BBX 


345 




TAY 




346 




LDA 


BY 


347 




STA 


BBY 


348 




JSR 


$F800 


349 




INC 


BBX 


350 




LDY 


BBX 


351 




LDA 


BBY 


352 




JSR 


$F800 


353 




INC 


BBY 


354 




LDY 


BBX 


355 




LDA 


BBY 


356 




JSR 


$F800 


357 




DEC 


BBX 


358 




LDY 


BBX 


359 




LDA 


BBY 


360 




JSR 


$F800 


361 




RTS 





COLUMN 
ROW 

PLOT BALL 



; SHORT DELAY 

; RETURN TO MONITOR AT END OF GAME 



362 
363 
60 364 
60 3b5 
366 
60 367 
60 368 
F8 369 
60 370 
60 371 



ODDEVENS LDA 
STA 
LDA 
STA 
TAY 
LDA 
STA 
JSR 
DEC 
LDY 



#$00 
$30 
BX 
BBX 

BY 

BBY 

$F800 

BBY 

BBX 



; BLACK 

;TEMP VALUE 
; COLUMN 
;ROW 

;TEMP VALUE 
; ERASE PT X,Y 

; COLUMN 
;ROW 

; ERASE PT X+l.Y 

.•COLUMN 
;ROW 

; ERASE PT X+l.K+l 

; COLUMN 
;ROW 

; ERASE PT X.Y+l 



; BLACK 

; COLUMN 
;ROW 

; ERASE PT X,Y 
; COLUMN 



66 



6331: 

6334: 

6337: 

633A: 

633D: 

6340: 

6343: 

6346: 

6349: 

634C: 

634F: 

6350: 

6352: 

6354: 

6357: 

635A: 

635B: 

635E: 

6361: 

6364: 

6367: 

636A: 

636D: 

6370: 

6373: 

6376: 

6379: 

637C: 

637F: 

6382: 

6385: 

6388: 

6389: 

638B: 

638D: 

6390: 

6393: 

6394: 

6397: 

639A: 

639D: 

63A0: 

63A3: 

63A6: 

63A9: 

63AC: 

63AF: 

63B2: 

63B5: 

63B8: 

63BB: 

63BE: 

63C1: 



63C2: 
63C4: 
63C6: 
63C8: 



AD 08 
20 00 
EE 07 
AC 07 
AD 08 
20 00 
EE 08 
AC 07 
AD 08 
20 00 
60 

A9 00 
85 30 
AD 05 
8D 07 
A8 

AD 06 
8D 08 
20 00 
CE 08 
AC 07 
AD 08 
20 00 
CE 07 
AC 07 
AD 08 
20 00 
EE 08 
AC 07 
AD 08 
20 00 
60 

A9 00 
85 30 
AD 05 
8D 07 
A8 

AD 06 
8D 08 
20 00 
CE 07 
AC 07 
AD 08 
20 00 
EE 08 
AC 07 
AD 08 
20 00 
EE 07 
AC 07 
AD 08 
20 00 
60 



A2 00 
A9 05 
85 24 
A9 17 



60 372 
F8 373 
60 374 
60 375 
60 376 
F8 377 
60 378 
60 379 
60 380 
F8 381 
382 
383 
384 
60 385 
60 386 
387 
60 388 
60 389 
F8 390 
60 391 
60 392 
60 393 
F8 394 
60 395 
60 396 
60 397 
F8 398 
60 399 
60 400 
60 401 
F8 402 
403 
404 
405 
60 406 
60 407 
408 
60 409 
60 410 
F8 411 
60 412 
60 413 
60 414 
F8 415 
60 416 
60 417 
60 418 
F8 419 
60 420 
60 421 
60 422 
F8 423 
424 
425 
426 
427 
428 
429 
430 
431 



EEVENS 



LDA 


BBY 


;R0W 


JSR 


$F800 


; ERASE PT X.Y-l 


INC 


BBX 


LDY 


BBX 


; COLUMN 


LDA 


BBY 


;R0W 


JSR 


$F800 


; ERASE PT X+l.Y-l 


INC 


BBY 


LDY 


BBX 


; COLUMN 


LDA 


BBY 


;R0W 


JSR 


$F800 


; ERASE PT X+l.Y 


RTS 




LDA 


#$00 




STA 


$30 




LDA 


BX 




STA 


BBX 




TAY 




; COLUMN 


LDA 


BY 


;R0W 


STA 


BBY 




JSR 


$F800 


; ERASE PT X,Y 


DEC 


BBY 


LDY 


BBX 


; COLUMN 


LDA 


BBY 


;ROW 


JSR 


$F800 


; ERASE PT X.Y-l 


DEC 


BBX 


LDY 


BBX 


; COLUMN 


LDA 


BBY 


;ROW 


JSR 


$F800 


; ERASE PT X-l.Y-l 


INC 


BBY 


LDY 


BBX 


;CLUMN 


LDA 


BBY 


;ROW 


JSR 


$F800 


; ERASE PT X-l.Y 


RTS 




LDA 


#$00 




STA 


$30 




LDA 


BX 




STA 


BBX 




TAY 




; COLUMN 


LDA 


BY 


;ROW 


STA 


BBY 




JSR 


$F800 


; ERASE PT X,Y 


DEC 


BBX 


LDY 


BBX 


; COLUMN 


LDA 


BBY 


;ROW 


JSR 


$F800 


; ERASE PT X-l.Y 


INC 


BBY 


LDY 


BBX 


; COLUMN 


LDA 


BBY 


;ROW 


JSR 


$F800 


; ERASE PT X-l.Y+l 


INC 


BBX 


LDY 


BBX 


; COLUMN 


LDA 


BBY 


;ROW 


JSR 


$F800 


; ERASE PT X.Y+l 


RTS 





*PRINT SUBROUTINE 



PRINT 



LDX #$00 

LDA #$05 

STA $24 

LDA #$17 



;HTAB5 



63CA: 




SR 


r d 


AT9 




Jjn 


TARV 
1 nDV 


63CD: 


BD 


EO 




413 


PRINT1 


I DA 


CTD T 


63D0: 


FO 


07 




434 




BEQ 


DONE 


63D2: 


20 


FO 


FD 


435 




JSR 


C0UT 


63D5: 


E8 






436 




I NX 




63D6: 


4C 


CD 


63 


437 




JMP 


PRTNT1 


63D9: 


AD 


10 


60 


4JO 


DONE 


i nA 




63DC: 


20 


DA 


FD 


439 




JSR 


PRBYTE 


63DF: 


60 






440 




RTS 




63E0: 


D3 


C3 


CF 










63E3: 


D2 


C5 


AO 










63E6: 


BD 


AO 




441 




ASC 


"SCORE 


63E8: 


00 






442 
443 


« 


HEX 


00 










AAA 




SUBROUTINE 










445 








63E9: 


AD 


30 


CO 


446 




LDA 


$C030 


63EC: 


88 






447 


SI 


DEY 




63ED: 


DO 


05 




448 




BNE 


S2 


63EF: 


CE 


lfi 


60 


AAQ 




DEC 


TIME 


63F2: 


FO 


0Q 








BEQ 


SEND 


63F4 : 


TA 






AM 


oz 


DEX 




63F5: 


DO 


F5 








BNE 


SI 


63F7: 


AE 


15 


60 


453 




LDX 


PITCH 


63FA: 


AC 


E9 


63 


454 




JMP 


SOUND 


63FD: 


60 






455 


SEND 


RTS 





—END ASSEMBLY — 



1022 BYTES 



CHAPTER 3 



MACHINE LANGUAGE ACCESS TO 
APPLESOFT HI-RES ROUTINES 



The Applesoft ROM contains a full set of Hi-Res graphics routines. But Ap- 
plesoft, being an interpretive language rather than a compiled language, ac- 
cesses these routines rather inefficiently as far as speed is concerned. This is 
because the interpreter has to determine where to go and what to do with each 
tokenized BASIC instruction as it encounters it. The speed penalty for this ad- 
ded overhead is considerable. The interpreter runs these routines from four to 
six times slower than if they were called directly from machine language. 

At first glance, it appears to be rather simple to call to graphics subroutines 
located in the ROM. In retrospect, it is, provided that you understand how the 
interpreter handles the data structure both internally and externally as it ex- 
ecutes these graphics subroutines. Since the information has never been fully 
documented, it is some help if you have the Programmer's Aid Manual, where 
a source listing of that ROM chip is quite similar to the ROM Applesoft Hi- 
Res subroutines. 

I'm quite reluctant at this stage to attempt an explanation of how these 
routines actually work. A solid grounding both in machine language and in the 
Hi-res screen's peculiarities won't come until much later in the book. I will, 
however, discuss the data structure in regards to what you need to input, and 
how you input these parameters when calling the subroutines. 

There are a series of memory locations stored in zero page that specify a 
point on the Hi-Res screen. Some people call these locations External Cursor 
Data. They are as follows: 

$E0: Lo order byte of the horizontal screen coordinate 
$E1: Hi order byte of the horizontal screen coordinate 
$E2: Vertical screen coordinate 

$E4: Color masking word from the color table ($F6F6-$F6FD) 
$E6: Page indicator ($20 page 1, $40 for page 2). 

In addition, three other memory locations hold information regarding 
shape table data for the drawing subroutines: 

$E7: Scale factor for drawing shapes 

$E8: Lo byte pointer to beginning of shape table 

$E9: Hi byte pointer to beginning of shape table. 
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There are also a number of zero page page locations that the Hi-Res 
subroutines use internally when doing the actual screen plotting of points, or 
strings of points called lines. Some of these contain the memory address of the 
byte to plot on the screen, while others contain the color and masking informa- 
tion, so that only the correct pixel within that seven-pixel byte is turned on or 
off. 

$1C: The color masking byte, which is shifted for odd addresses but other 

wise remains unchanged. 
$26: Lo address for the leftmost byte in a particular vertical row. 
$27: Hi address for the leftmost byte in a particular vertical row. 
$E5: The integer part of the horizontal screen coordinate divided by 

7, or the horizontal offset into row. 
$30: The bit position taken from the Bit Position table. 

This corresponds to remainder from horizontal coordinate divided by 7 or 
which bit in the byte is to be lit. 



What I should point out is that after a series of other subroutines set up the 
position to plot on the screen, the actual plotting of the point is done with a five 
line subroutine called PLOT located at $F45A, as in the following: 

LDA $1C 
EOR ($26),Y 
AND $30 
EOR ($26),Y 
STA ($26),Y 
RTS 

The internal cursor data is more important than the external cursor data if 
speed is the consideration. There are internal subroutines within the ROM 
that set the external cursor data to correspond with the internal data, and 
several more that can manipulate the screen cursor directly. However, for plot- 
ting points and drawing shapes from Apple shape tables, you need not concern 
yourself with any internal workings of these subroutines. Instead, I've sum- 
marized all of the necessary subroutines in the table below, and will 
demonstrate examples using them. 
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IN AMb 




AL.C. 


XREG 


YREG 


NOTES 


[if rj 


•coco 










HGR2 


IF3D8 










BKGND 


JF3F4 


COLOR 
FROM 

COLOR 
MASK 

TABLE 








HCOLOR 


$F6F0 




COLOR 
0-7 






HPLOT 


$F457 


VERT 


HORIZ LO 


HORIZ HI 


THIS CALLS 
HPOSN 


HLINE 


$F53A 


HORIZ LO 


HORIZ HI 


VERT 


DRAWS 
FROM INT 
CURSOR 
POS. TO PT. 
IN INPUT 


HPOSN 


SF411 


VERT 


HORIZ LO 


HORIZ HI 


ALWAYS 
CALL 

BEFORE 
DRAW 


SHPTR 


$F730 




SHAPE # 




SETS $1A, 
$1B SHAPE 
POINTERS 


DRAW 


$F601 


ROTATION 


$1A 


SIB 




XDRAW 


$F65D 


ROTATION 


$1A 


$1B 





Simple shapes can be plotted to the Hi-Res screen in BASIC by HPLOTting 
from point to point. Their speed, in comparison to Apple shapes (vector 
shapes), is rather slow. However, in machine code, HPLOTed shapes become 
a viable alternative if the shape is rather large and complex. Their disadvan- 
tage is that they can't be scaled or rotated, but they are easier to plot if you 
choose to place the coordinate pairs into a table. 

Our first example will plot a simple triangle by accessing the Applesoft Hi- 
Res ROM routines directly. It is equivalent to the following BASIC program. 
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10 HGR 

20 HCOLOR=3 

30 HPLOT 100,50 TO 150,100 TO 50,100 TO 100 50 
40 END 

The program sets the mode to Hi-Res graphics page one, mixed text and 
graphics, by calling HGR at $F3E2. The plotting color is set to white (3) by 
a call to HCOLOR at $F6F0. Then, by loading the Accumulator and the X 
& Y registers with the correct screen coordinates, the point at 100 50 is 
plotted to the screen with a call to HPLOT at $F457. Each of the triangle's 
lines are drawn by calling HLINE at $F53A. This subroutine draws a line 
from the internal cursor position (last point) to the point defined by the in- 
put to HLINE. Since the last point was at 100,50 and we are inputting the 
coordinates 150,100 , the line is drawn between these two points After 
drawing the next two lines, the triangle is completed and the program 
ends. The complete code follows. 

dAw P ?^ TANT NOTE: The Programs in this chapter access the Applesoft 
ROM. While this is no problem to Apple II Plus owners, those of us that have 
an Integer machine with an Applesoft ROM card, or Applesoft in RAM on a 
16K memory board, should understand that if they enter the monitor by hit- 
ting reset, they have lost Applesoft. The machine reverts to the Integer ROM 
on the motherboard. If you try to restart the programs they won't run unless 
the ROMs are reconnected by a 9DBFG and you return to the monitor by a 
C<ALL —151. 



100,50 




50,100 150,100 



1 *PLOT TRIANGLE 

2 ORG $6000 



6000: 


20 


E2 


F3 


3 






JSR $F3E2 


HGR 






6003: 


A2 


03 




4 






LDX #$03 


C0L0R=WH1TE 




6005: 


20 


FO 


F6 


5 






JSR $F6F0 


HCOLOR 














6 


*PLOT 


FIRST PT 








6008: 


AO 


00 




7 






LDY #$00 


HORIZ POS 


HI 


BYTE 


600A: 


A2 


64 




8 






LDX #$64 


HORIZ POS 


LO 


BYTE 


600C: 


A9 


32 




9 






LDA #$32 


VERT POS 






600E: 


20 


57 


F4 


10 
11 


*DRAW 


TO 


JSR $F457 
SECOND POINT 


HPLOT 






6011: 


A2 


00 




12 






I DX #$00 


HORIZ POS 


HI 


BYTE 


6013: 


A9 


96 




13 






I DA #<R96 


HORIZ POS 


LO 


BYTE 


6015: 


AO 


64 




14 






T DY iHfS4 


VERT POS 






6017: 


20 


3A 


F5 


15 
16 


*DRAW 


TO 


J Jl\ 41 r JJn 

THIRD POINT 


HLINE 






601A: 


A2 


00 




17 






LDX #$00 


H0RT7 POS 


HI 


BYTE 


601C: 


A9 


32 




18 






LDA #$32 


HORIZ POS 


LO 


BYTE 


601E: 


AO 


64 




19 






LDY #$64 


VERT POS 






6020: 


20 


3A 


F5 


20 
21 


*DRAW 


TO 


JSR $F53A 
FIRST POINT 


HLINE 






6023: 


A2 


00 




22 






LDX #$00 


HORIZ POS 


HI 


BYTE 


6025: 


A9 


64 




23 






LDA #$64 


HORIZ POS 


LO 


BYTE 


6027: 


AO 


32 




24 






LDY #$32 


VERT POS 






6029: 


20 


3A 


F5 


25 






JSR $F53A 


HLINE 






602C: 


60 






26 






RTS 









— END ASSEMBLY— 



The HPLOT technique can be used to draw shapes of greater complexity. 
Since these shapes require numerous calls to HLINE for each line segment of 
the completed shape, it is best to design the code to access the coordinate pairs 
from a stored table and put the drawing routine into a loop. 

For the sake of simplicity, I decided to store the X-Y coordinates as two byte 
pairs. This limits the range along the horizontal axis, since values greater than 
255 would require using the hi byte, too. If you wanted to use the entire screen, 
you would have to use three byte coordinate pairs and modify the code accor- 
dingly. A test was needed to determine when all the shape's points had been 
plotted. I used an $FF as a flag for the last point. The test is on the vertical 
coordinate, since Y coordinate values don't exceed $BF. Actually, the pair's 
first byte can be anything, since it is the last byte of the pair that is the flag. 
When the loop detects this flag, it skips plotting the last line segment and exits 
the loop. 



The technique for accessing elements of a shape table involves loading the 
first of a pair of bytes into the Accumulator, and the second byte into the X 
register before calling HLINE to draw the line segment. Each element of the 
table is stored at a particular two-byte address. In our example, the very first 
element is called the Oth element of the table and is located at $6044. Elements 
of a table can be accessed by using a zero page indexing system called Indexed 
Indirect Addressing. It takes the form LDA (SHPL.X). If the X-register were 
zero.it would load a byte from an address indicated by a pair of bytes, SHPL 
and SHPH stored in zero page. For example, if location $FC and $FD which 
are equivalent to SHPL and SHPH respectively, contain a #$44 and #$60 in 
that order, then LDA (SHPL,X) will load a #$61 from location $6044 into the 
Accumulator. 



INDEXED INDIRECT ADDRESSING 



LDA (SHPL.X) INDIRECT ADDRESS 

\ 



#$00 \/* 



+ ($FC 



$FD 




#$44 



#$60 



SHPL 
SHPH 



DATA 



$6044 



#$61 



BASE ADDRESS 



As you will soon discover, there are never enough registers in the 6502. Cer- 
tainly, the Accumulator and X and Y registers are not enough when all three 
need to be loaded to call a subroutine, and you also need to use two of them 
simultaneously for retrieving data from a table. The solution is to temporarily 
store your data in a memory location. When you're done with the table and 
your registers are free, the data can be moved to the proper registers just before 
calling the subroutine. The important thing is to be careful that you do not 
clobber your working registers. 

In the example below, the X-register must be set to zero each time the index- 
ed indirect load is used to retrieve a value from the table. This is no problem 
the first time through the loop, but this value for the horizontal position lo byte 
eventually needs to reside in the X-register before calling HLINE. Since we 
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need to do another indirect indexed load using both the Accumulator and 
X-register for the next byte, we temporarily store our data in XLOW. If we in- 
crement SHPL, the lo byte pointer to our shape data, it will point to the next 
byte in our shape table. At this point, since we haven't disturbed the 
X-register, we don't need to put zero into it to perform our next indirect index- 
ed load. This second value retrieved — the vertical coordinate is transferred to 
the Y-register. The horizontal hi byte is placed into the X-register and the 
horizontal lo byte, which was temporarily stored at XLOW, is moved into the 
Accumulator before calling the subroutine HLINE. 



X 

50 60 70 80 90 100 110 
Y | ] 

Y 




110 
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DECIMAL 



HEX 



PT 


X 


Y 


X 


Y 


1 


69 


65 


45 


41 


2 


80 


52 


50 


34 


3 


106 


57 


6A 


39 


4 


87 


57 


57 


39 


5 


76 


71 


4C 


47 


6 


88 


77 


58 


4D 


7 


81 


85 


51 


55 


8 


72 


77 


48 


40 


9 


59 


88 


38 


58 


10 


64 


108 


40 


6C 


11 


50 


84 


32 


54 


12 


63 


72 


3F 


48 


13 


59 


67 


3B 


43 


14 


58 


64 


3A 


40 


15 


60 


62 


3C 


3E 


16 


64 


62 


40 


3E 


17 


69 


65 


44 


41 








FF 


FF 



6001: 
6004: 
6006: 
6009: 
600B: 
600D: 
600F: 

6011: 
6013: 
6015: 
6018: 
601 A: 
601C: 
601 F: 
6021: 
6024: 



20 E2 
A2 03 
20 F0 
A9 44 
85 FC 
A9 60 
85 FD 

A2 00 
Al FC 
8D 00 
E6 FC 
Al FC 
AE 00 
AO 00 
20 57 
E6 FC 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 

F3 11 
12 

F6 13 
14 
15 
16 
17 
18 
19 
20 

60 21 
22 
23 

60 24 
25 

F4 26 
27 
28 



*HPL0TS A BIRD SHAPE ON SCREEN ONCE 





ORG 


$6000 


XLOW 


DS 


1 


HPLOT 


EQU 


$F457 


HLINE 


EQU 


$F53A 


HCOLOR 


EQU 


$F6F0 


HGR 


EQU 


$F3E2 


SHPL 


EQU 


$FC 


SHPH 


EQU 


SHPL+$1 


♦PROGRAM 








JSR 


HGR 




LDX 


#$03 




JSR 


HCOLOR 




LDA 


#<SHAPE 




STA 


SHPL 




LDA 


#>SHAPE 




STA 


SHPH 


*PLOT FIRST POINT 


PLOT 


LDX 


#$00 




LDA 


(SHPL.X) 




STA 


XLOW 




INC 


SHPL 




LDA 


(SHPL.X) 




LDX 


XLOW 




LDY 


#$00 




JSR 


HPLOT 




INC 


SHPL 



; WHITE COLOR 
;SET WHITE COLOR 



♦DRAW NEXT POINT 



;THIS IS HOR POS LO BYTE 

;NEXT BYTE IN SHAPE TABLE 
;THIS IS VERT VALUE FOR PT 
;HORIZ POS LO BYTE 
;HORIZ POS HI BYTE 

;NEXT BYTE IN TABLE 



uu^u ■ 


A9 


nn 




9Q 

zy 


T AAD 


LDX 


6028: 


A 1 

nl 


Fr 
r 




9n 

jU 




LDA 


602A: 


8D 




fin 






OTA 

o 1A 


602D: 


FA 


Fr 




99 




T Mr 


602F: 


Al 






99 




t r\A 


6031 : 




r r 




9A 

JH 




r*MD 
LMr 




r \j 


OF 




9^ 
JJ 






UUJJ ■ 


Aft 

nu 






9A 
JO 




1 AY 


fifrtfi' 
UUJU • 


A 9 






97 
j / 




LDX 


6038: 


AD 


00 


60 


38 




LDA 


UUjD • 


ZU 


9A 
jA 


P^ 


9G 

jV 




JSR 


An9F • 


PA 


PP 

F Li 




/. n 




INC 


6040 . 


H\_, 


9A 
ZO 


An 

DU 


A 1 




tun 

J Mr 




An 

OU 






/. 9 
4Z 

/■ 9 
4 J 


TV\MP 


DTC 

Klb 


AnAA • 


A^ 


A 1 


^n 

DU 








f%C\Ll • 
uw / • 


°.A 
JH 


AA 
OA 


on 

jy 








AHA A • 
OUhA , 


■^7 
J 1 


oo 

jri 






SHAPE 


HEX 


An AT • 

ou4t_.: 


4U 


A 7 


CO 

Jt5 








AHA P . 

0U4r ; 


An 

41/ 


Jl 


JJ 








£r\c') . 

oujz : 


/. Q 


4IJ 




4!) 




HEX 


ou j4 : 


JD 


JO 


40 








old/ : 


OL 


32 


54 








oudA: 


Jr 


48 




46 




HEX 




jD 


A9 


jA 








605F: 


40 




3E 








6062: 


40 


3E 




47 




HEX 


6064: 


44 


41 


FF 








6067: 


FF 






48 




HEX 



#$00 




(bnrL.X) 


;H0RIZ P0S L0 BYTE 


XLUW 




brirL 


;NEXT BYTE IN TABLE 


( bHPL , A ; 


;THIS IS VERT VALUE FOR PT 


#$FF 




DONE 


;IF BYTE CONTAINS 255, DONE 




;VERT IN Y REG 


#$00 


;H0RIZ P0S IN HI BYTE 


XL0W 


;H0RIZ P0S IN L0 BYTE 


HLINE 




SHPL 


;NEXT BYTE 


LOOP 





454150346A395739 

4C47584D5155484D 

3B58406C32543F48 

3B433A403C3E403E 
4441FFFF 



Shape tables that cross page boundaries (256 byte sections of memory where 
the hi byte is constant) can cause problems. If, for example, our table began at 
$60FC instead of $6044, after incrementing four times, the lo byte would be 
#$00. The program would attempt to load the byte at location $6000 instead of 
the byte at location $6100. This can be prevented if a test is performed after 
you increment SHPL. If SHPL were equal to zero, it would increment SHPH; 
otherwise, it would skip this step. 



INC 
LDA 
CMP 
BNE 
INC 

SKIP LDA 



SHPL 
SHPL 
#$00 
SKIP 
SHPH 
(SHPL.X) 



; INCREMENT L0 BYTE 

IS IT ? 
NO 

YES INCREMENT HI POINTER 
NEXT BYTE IN TABLE 



The object of this fast machine language algorithm is to enable you to 
animate your shapes smoothly and quickly. While one would never attempt to 
animate HPLOTed shapes in Applesoft BASIC, it is completely feasible in 
machine language. Speed increases on the order of 6 to 8 times are the rule. 



The code to animate our HPLOTed bird in Applesoft follows. Try it, then try 
the same algorithm written in machine language. I should point out that the 
speed differences can not be directly correlated, since to keep the object on the 
screen longer than off, a delay loop of 7 milliseconds per frame was used. If you 
remove the delay or set the value in the Accumulator to #$01 before calling the 
delay subroutine at $FCA8, the speed increases to 8 times that of the Applesoft 
version. However, screen flicker becomes more noticeable. 



10 DIM X(20) ,Y(20) 

30 FOR I = 1 TO 50 

40 READ X(I),Y(I) 

50 IF Y(I) = 255 THEN 65 

60 NEXT I 

65 HGR :0FF = - 50:1 = 1 
70 HC0L0R= 3 

niLwl a^x; 1- Orr,ivi; iu au + L) + urt ,1(1 + 1) TO X(I 
+ 2) + 0FF,Y(I + 2) TO X(I + 3) + 0FF,Y(I + 3) TO X(I + 4) + 
OFF, Yd + 4) TO X(I + 5) + 0FF,Y(I + 5) TO X(I + 6) + OFF, Y 
T T0 X (! + 7) + OFF, Y(I + 7) TO X(I + 8) + 0FF,Y(I +8 
) TO X(I + 9) + 0FF,Y(I +9) 

90 HPLOT X(I + 9) + 0FF,Y(I + 9) TO X(I + 10) + OFF Y(I + 1 
0) TO Xd + 11) + OFF, Y(I + 11) TO X(I + 12) + OFF, Yd + 12) 
TO Xd + 13) + OFF, Y(I + 13) TO X(I + 14) + OFF, Yd + 14) T 
Xd + 15) + OFF, Y(I + 15) TO X(I + 16) + OFF, Yd + 16) 
100 HC0L0R= 4 

110 HPLOT X(I) + OFF, Y(I) TO X(I + 1) + OFF, Yd + 1) TO X(I 

+ 2) + OFF, Y(I + 2) TO X(I + 3) + OFF, Yd + 3) TO X(I + 4) 
+ OFF, Y(I + 4) TO Xd + 5) + OFF, Yd + 5) TO X(I + 6) + OFF 
Y(I + 6) TO Xd + 7) + OFF, Y(I + 7) TO X(I + 8) + OFF Y(I + 
8) TO Xd + 9) + OFF, Y(I +9) 

120 HPLOT Xd + 9) + OFF, Yd + 9) TO X(I + 10) + OFF Y(I + 
10) TO X(I + 11) + OFF, Y(I + 11) TO X(I + 12) + OFF, Yd + 12 
) TO X(I + 13) + OFF, Y(I + 13) TO X(I + 14) + OFF, Yd + 14) 
TO X(I + 15) + OFF, Y(I + 15) TO X(I + 16) + OFF, Yd + 16) 
130 OFF = OFF + 5 

140 IF OFF = 155 THEN OFF = - 50 
150 GOTO 70 

160 DATA 69,65,80,52,106,57,87,57,76,71,88,77,81,85,72,77 
,59,88,64,108,50,84,63,72,59,67,58,64,60,62,64,62,69,65,255, 
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The code for the moving bird is quite similar to the stationary bird, except 
that once we plot the bird, it must be erased before replotting it at a different 
position. It becomes rather convenient to place the entire plotting program in a 
subroutine. An offset is added to each horizontal point of the bird to position it 
properly on the screen. This offset starts at - 50 or #$CE in order to position 
the bird's left-most point at X =0. The offset is incremented by five for each 
additional frame and tested each time so that it doesn't exceed 150 or #$96. If it 
does, the bird's right-most point will exceed 255 decimal. The test must be ex- 
actly at 150 rather than equal or greater, because our negative numbers #$CE 
and larger would also meet the test. Be careful in this kind of test. If your hex- 
adecimal addition isn't correct when choosing the test position, the number 
will never meet the test conditions and therefore never reset the offset back to 
the beginning position after traversing the screen's width. One hint is to use 
the monitor when adding two hexadecimal single byte numbers. For example, 
the monitor command 03 + FE <CR> will return the hexadecimal value 
$02. 

When alternating between drawing and erasing, the color shifts between 
white and black, respectively. The pointers to the shape table must also be reset 
for each plot/erase cycle because these pointers are incremented when retriev- 
ing bytes within the table. The flow chart and machine code for the moving 
bird follows. 



PLOT 


BIRD 







DELAY 



ERASE BIRD 







UPDATE 


OFFSETH 
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1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



♦MOVING HPLOTTED BIRD 
ORG $6000 
DS 



ACROSS SCREEN 



XLOW 
HP LOT 
HLINE 
HCOLOR 
HGR 
SHPL 
SHPH 

OFFSETH DS 
♦PROGRAM 



1 

EQU $F457 
EQU $F53A 
EQU $F6F0 
EQU $F3E2 
EQU $FC 
EQU SHPL+$1 
1 



6002: 


20 


E2 


R3 


1 9 
1Z 




JSR 


HGR 


6005: 


A9 


CE 








LDA 


#$CE 


6007: 


8D 01 


60 


14 




OTA 

oi A 


OFFSETH 


600A: 


A9 


7C 






MA TM 


LDA 


Jl >nn a Tin 

#<SHAPE 


600C: 


85 


FC 




1 fi 




STA 


SHPL 


600E: 


A9 


60 




l 7 
1 / 




LDA 


#>SHAPE 


6010: 


85 


FD 




lo 




STA 


SHPH 


6012: 


A2 


03 




1 Q 




LDX 


#$03 


6014: 


20 


FO 


F6 


91") 
zu 




JSR 


HCOLOR 


6017: 


20 


41 


fiC) 


91 
Zl 




JSR 


PLOT 


601A: 


A9 


50 




99 

ZZ 




LDA 


#$50 


601C: 


20 


A8 


r \s 


9*} 
Z j 




JSR 


$FCA8 


601F: 


A9 


7C 




7L 

C.H 




LDA 


Jl /fin h tiri 

#<SHAPE 


6021: 


85 


FC 




9 




STA 


SHPL 


6023: 


A9 


60 




ZD 




LDA 


#>SHAPE 


6025: 


85 


FD 




97 
Z / 




STA 


SHPH 


ouz / ; 


A2 


04 




28 




LDX 


#$04 




20 


FO 


ro 


29 




JSR 


HCOLOR 


ouzl>: 


20 


41 


00 


30 




JSR 


PLOT 


ouzr : 








31 


♦UPDATE HORIZ 


OFFSET 


AD 01 


£.f\ 
OU 


32 




LDA 


OFFSETH 


oujz: 


18 






33 




CLC 




oujj: 


69 


05 




34 




ADC 


#$05 


6035: 


C9 


96 




35 




CMP 


#$96 


ouji : 


DO 


02 




36 




BNE 


SKIP 


6039: 


A9 


CE 




37 




LDA 


#$CE 


603B: 


8D 


01 


60 


38 


SKIP 


STA 


OFFSETH 


603E: 


4C 


OA 


60 


39 




JMP 


MAIN 










40 


♦PLOT 


FIRST POINT 


6041: 


A2 


00 




41 


PLOT 


LDX 


#$00 


6043: 


Al 


FC 




42 




LDA 


(SHPL.X) 


6045: 


18 






43 




CLC 


6046: 


6D 01 


60 


44 




ADC 


OFFSETH 


6049: 


8D 


00 








STA 


XLOW 


604C: 


E6 


FC 




46 




INC 


SHPL 


604E: 


Al 


FC 




47 




LDA 


(SHPL.X) 


6050: 


AE 


00 


60 


48 




LDX 


XLOW 


6053: 


AO 


00 




49 




LDY 


#$00 


6055: 


20 


57 


F4 


50 




JSR 


HPLOT 


6058: 


E6 


FC 




51 




INC 


SHPL 










52 


♦DRAW 


NEXT POINT 


605A: 


A2 


00 




53 


LOOP 


LDX 


#$00 


605C: 


Al 


FC 




54 




LDA 


(SHPL.X) 


605E: 


18 






55 




CLC 


605F: 


6D 01 


60 


56 




ADC 


OFFSETH 


6062: 


8D 


00 


60 


57 




STA 


XLOW 


6065: 


E6 


FC 




58 




INC 


SHPL 


6067: 


Al 


FC 




59 




LDA 


(SHPL.X) 


6069: 


C9 


FF 




60 




CMP 


#$FF 



;-50 DECIMAL 



; WHITE COLOR 
;SET TO WHITE 



; DELAY 



; BLACK COLOR 
;SET TO BLACK 



;150 DECIMAL 

;OFF RT SIDE OF SCREEN 

;THIS IS HOR POS LO BYTE 



;NEW HORIZ POS LO BYTE 
;NEXT BYTE IN SHAPE TABLE 
;THIS IS VERT VALUE FOR PT 
; HORIZ POS LO BYTE 
; HORIZ POS HI BYTE 

;NEXT BYTE IN TABLE 



; HORIZ POS LO BYTE 



;NEW HORIZ POS LO BYTE 

;NEXT BYTE IN TABLE 

;THIS IS VERT VALUE FOR PT 



AOAR* 

\j\J\jD • 


F0 


0E 








BEQ 


HONF 

U\JVi£j 


;IF BYTE CONTAINS 255, 


\J\J\jU • 


A8 










TAY 




• VFRT TW Y 


RFr 


AOAF- 


A2 


00 




Dj 




LiLlA 


ff *pUU 


;H0RIZ P0S 


IN HI BYTE 


6070: 


AD 00 


60 


64 




LDA 


XL0W 




TM !f1 DVTP 
IN LU Dl 1 C, 


An7°.- 


ZU 


OA 

JA 


f^ 


A^ 
03 




JjK 


ui TWF 








E.O 


r L. 




AA 
oo 






Jllr Li 


• MFYT RYTF 




An7ft« 


AC 
4U 


DA 


An 
ou 


A7 
O / 




TMP 


t nnp 

LiUUr 








An 
ou 






AR 
AQ 


* 


Rl J 








An7f» 

OU / Li • 


A^ 


Hi 


sn 














uu / r • 


J 4 * 


AA 
OA 
















UUOt • 


_>/ 


on 

jy 






SHAPE 


HEX 


454150346A395739 








4 / 


JO 














Ana7» 

QUO / ■ 


41) 


51 


jj 














Ann a ■ 

OUOA ■ 


4o 


4D 




71 




HFY 


4C47584D5155484D 




OUoL. J 


3B 


58 


An 














ouor : 


6C 


32 


<^A 
D4 














Anno ■ 

ouyz; 


3F 


48 




/ L 




riCjA 


3B58406C32543F48 




ouv4 : 


3B 


43 


^ A 
jft 














6097: 


AO 


X 


3E 














609A: 


40 


3E 




73 




HEX 


3B433A403C3E403E 




609C: 


44 


41 


FF 














609F: 


FF 






74 




HEX 


4441FFFF 







— END ASSEMBLY— 160 BYTES 



APPLE SHAPE TABLES IN ANIMATION 

The advantage of accessing Apple shape tables ( vector shape tables) directly 
from machine language results in a sixfold increase in animation speed. For 
many applications and simple games, this speed increase may be sufficient. If it 
isn't, you should use raster or block shape animation. 

I think that beginning machine language programmers, whose prior 
experience is with Apple shapes in BASIC, should attempt the techniques in 
this section before learning more complicated methods shown later in this 
book. 

If you were to DRAW or XDRAW a shape in BASIC, you would set the 
color, scale, and rotation before doing a DRAW 1 at 10,10. The location of the 
shape table would have been indicated by poking the address to locations 
decimal 232 and 233. These two locations are $E8 and $E9, respectively. 

However, before calling the DRAW subroutine at $F601 or XDRAW at 
$F65D, the pointers to the correct shape number must be set through a 
subroutine that I call SHPTR (short for shape pointer). This subroutine 
located at $F730 takes the shape number, which is inputted via the X-register, 
and sets the pointers to the shape in locations $1A (lo byte) and $1B (hi byte). 

This subroutine is deeply linked into the Applesoft interpreter. It calls 
subroutines that increment the Applesoft "Get Next Character" Routine. 
Although I don't believe that this subroutine located at $B7 will cause any pro- 



blems, before you clobber anything, I would pay attention to the chart of 
available zero page locations in the Apple Reference Manual. Don't touch the 
™ s "^ b ? A PP le «>ft. You can also disconnect that routine by placing a 
#$60 (RTS) in location $B7 (its first location), but be sure to put the original 
value, #$AD, back when you're done, or you will hang the computer when it 
returns the Applesoft prompt, and doesn't understand anything that you type 
In short, don't make the change unless you think it is causing you grief. 

The second thing that must be set before calling the DRAW subroutine is 
the internal cursor position, or where you want to plot your shape This is easi- 
ly accomplished with the HPOSN subroutine at $F411. Once the horizontal 
and vertical locations are inputted, the subroutine sets locations $26, $27 $30 
and $E5 to begin plotting. When you finally call the DRAW or XDRAW 
subroutine, the only inputs that are required are the rotation value in the Ac- 
cumulator and the pointers to the correct shape that are stored at $1A and $1B 
in the X and Y registers. It may sound complicated but if you examine the 
following code, you will see that it is relatively straight-forward. The following 
routine XDRAWs two shapes. The first, a square, is plotted at X = 64, Y - 64 
and the second shape, a cross, is plotted at X = 128, Y =50. The scale is 4 



6000: 
6003: 
6005: 
6007: 
6009: 
600B: 
600D: 
6010: 
6012: 
6014: 
6016: 
6019: 
601B: 
601D: 
601F: 
6022: 
6024: 
6026: 
6028: 

602B: 
602D: 
6030: 
6032: 
6034: 



20 E2 
A9 00 
85 E8 
A9 08 
85 E9 
A2 03 
20 F0 
A9 02 
85 E7 
A2 01 
20 30 
A2 40 
AO 00 
A9 40 
20 11 
A6 1A 
A4 IB 
A9 00 
20 5D 

A2 02 
20 30 
A2 80 
AO 00 
A9 32 



1 
2 
3 
4 
5 
6 
7 

F3 8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
F4 22 
23 
24 
25 
F6 26 
27 
28 
F7 29 



♦PLOTS TWO APPLE SHAPE TABLE SHAPES 



F6 



F7 



30 
31 
32 





ORG 


$6000 




HGR 


EQU 


$F3E2 




HC0L0R 


EQU 


$F6F0 




HPOSN 


EQU 


$F411 




XDRAW 


EQU 


$F65D 




SHPTR 


EQU 


$F730 






JSR 


HGR 






LDA 


#$00 






STA 


$E8 


;L0 BYTE OF SHAPE TABLE 




LDA 


#$08 




STA 


$E9 


;HI BYTE OF SHAPE TABLE 




LDX 


#$03 


; WHITE 




JSR 


HC0L0R 






LDA 


#$02 






STA 


$E7 


; SCALE 




LDX 


#$01 


; SHAPE #1 




JSR 


SHPTR 


;SET UP POINTER TO 1ST SHAPE 




LDX 


#$40 


;H0R L0 




LDY 


#$00 


;H0R HI 




LDA 


#$40 


;VERT 




JSR 


HPOSN 






LDX 


$1A 


;L0 BYTE SHAPE ADDRESS 




LDY 


$1B 


;HI BYTE SHAPE ADDRESS 




LDA 


#$00 


;R0T 




JSR 


XDRAW 




*PL0T SECOND 


SHAPE 






LDX 


#$02 


; SHAPE #2 




JSR 


SHPTR 


;SET UP POINTER TO 2ND SHAPE 




LDX 


#$80 


;H0R LO 




LDY 


#$00 


;H0R HI 




LDA 


#$32 


;VERT 



82 



6036: 20 11 F4 33 JSR 

6039: A6 1A 34 LDX 

603B: A4 IB 35 LDY 

603D: A9 00 36 LDA 

603F: 20 5D F6 37 JSR 

6042: 60 38 RTS 



HPOSN 

$1A ;L0 BYTE SHAPE ADDRESS 

$1B ;HI BYTE SHAPE ADDRESS 

#$00 ;R0T 
XDRAW 



— END ASSEMBLY— 67 BYTES 



Animating a shape is simple. You plot it once, erase it, move it to a new posi- 
tion, and then replot it at its new position. The procedure is accomplished via a 
loop. There is very little to say about the method. It is the same in Applesoft. I 
think the only thing you should be aware of is that HPOSN doesn't need to be 
called twice, since the erase is done at the same screen position as the 
XDRAW. In the example, shape #2 moves horizontally to the right, while 
shape #1 is stationary. The move routine checks for wrap-a-round at X = #$FF 
as it moves the shape across the screen. The flow chart and code follows. 



DRAW SHAPE #1 



DRAW SHAPE #2 



DELAY 



ERASE 


SHAPE #2 






MOVE SHAPE #2 



I 



SHAPE #1 



SHAPE #2 



SHAPE TABLE:02 00 06^00 09^00 2C^3E 00 2CJE 3E 3E 3C 2C 00 



TWO OFFSET OFFSET SHAPE SHAPE #2 

SHAPES TO TO #1 

SHAPE SHAPE 

#1 #2 



6001: 
6003: 
6006: 
6009: 
600B: 
600D: 
600F: 
6011: 
6013: 
6016: 
6018: 
601A: 
601C: 
601F: 
6021: 
6023: 
6025: 
6028: 
602A: 
602C: 
602E: 

6031: 
6033: 
6036: 
6039: 
603B: 
603D: 
6040: 
6042: 
6044: 
6046: 
6049: 
604B: 
604E: 
6050: 



6053: 
6055: 



A9 05 
8D 00 
20 E2 
A9 00 
85 E8 
A9 08 
85 E9 
A2 03 
20 FO 
A9 04 
85 E7 
A2 01 
20 30 
A2 40 
AO 00 
A9 50 
20 11 
A6 1A 
A4 IB 
A9 00 
20 5D 

A2 02 
20 30 
AE 00 
AO 00 
A9 32 
20 11 
A6 1A 
A4 IB 
A9 00 
20 5D 
A9 50 
20 A8 
A2 02 
20 30 



A6 1A 
A4 IB 



1 

2 
3 
4 
5 
6 
7 
8 
9 

60 10 

F3 11 
12 
13 
14 
15 
16 

F6 17 
18 
19 
20 

F7 21 
22 
23 
24 

F4 25 
26 
27 
28 

F6 29 
30 
31 

F7 32 

60 33 
34 
35 

F4 36 
37 
38 
39 

F6 40 
41 

FC 42 
43 

F7 44 
45 
46 
47 
48 



*MOVES APPLE SHAPE TABLE SHAPE ACROSS SCREEN 
ORG $6000 



HGR 

HCOLOR 

HPOSN 

XDRAW 

SHPTR 

XLOW 



EQU 

EQU 

EQU 

EQU 

EQU 

DS 

LDA 

STA 

JSR 

LDA 

STA 

LDA 

STA 

LDX 

JSR 

LDA 

STA 

LDX 

JSR 

LDX 

LDY 

LDA 

JSR 

LDX 

LDY 

LDA 

JSR 



$F3E2 
$F6F0 
$F411 
$F65D 
$F730 
1 

#$05 

XLOW 

HGR 

#$00 

$E8 

#$08 

$E9 

#$03 

HCOLOR 

#$04 

$E7 

#$01 

SHPTR 

#$40 

#$00 

#$50 

HPOSN 

$1A 

$1B 

#$00 

XDRAW 



;L0 BYTE OF SHAPE TABLE 

;HI BYTE OF SHAPE TABLE 
; WHITE 



SCALE 
SHAPE #1 

SET UP POINTER TO 1ST SHAPE 
HORIZ POS LO BYTE 
HORIZ POS HI BYTE 
VERT POS 

;L0 BYTE SHAPE ADDRESS 
;HI BYTE SHAPE ADDRESS 
;ROT 



*PLOT SECOND SHAPE 



LOOP 



LDX 
JSR 
LDX 
LDY 
LDA 
JSR 
LDX 
LDY 
LDA 
JSR 
LDA 
JSR 
LDX 
JSR 



#$02 
SHPTR 
XLOW 
#$00 
#$32 
HPOSN 
$1A 
$1B 
#$00 
XDRAW 
#$50 
$FCA8 
#$02 
SHPTR 

*DON'T HAVE TO DO HPOSN BEFORE ERASE 

*BECAUSE POSITION HASN'T CHANGED 

LDX $1A ;L0 BYTE SHAPE ADDRESS 

LDY $1B ;HI BYTE SHAPE ADDRESS 



; SHAPE #2 

;SET UP POINTER TO 2ND SHAPE 
;HOR POS LO BYTE 
;HOR POS HI BYTE 
; VERT POS 

LO BYTE SHAPE ADDRESS 
HI BYTE SHAPE ADDRESS 
ROT 

DRAW SHAPE #2 

; DELAY 
; SHAPE #2 
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6057: 


A9 00 




49 


LDA 


#$00 ;ROT 


6059: 


20 5D 


F6 


50 


JSR 


XDRAW ; ERASE 








51 


*MOVE SHAPE TO NEW POSITION 


605C: 


AD 00 


60 


52 


LDA 


XLOW 


605F: 


18 




53 


CLC 




6060: 


69 05 




54 


ADC 


#$05 


6062: 


C9 FF 




55 


CMP 


#$FF 


6064: 


DO 02 




56 


BNE 


SKIP 


6066: 


A9 OA 




57 


LDA 


#$0A 


6068: 


8D 00 


60 


58 


SKIP STA 


XLOW 


606B: 


4C 31 


60 


59 


JMP 


LOOP 



CHAPTER 4 

HI-RES SCREEN ARCHITECTURE 



The Apple II has two Hi-Res graphics screens, a primary and a secondary, 
each with a resolution of 280 dots horizontally (columns) and 192 dots or lines 
vertically. This gives an effective screen resolution of 53,760 picture elements 
or pixels per screen. 

The large number of pixels presented a dilemma to the Apple II designers. 
Using one memory location for each dot would far outstrip the Apple's 48K 
memory; besides, they wanted to have two screens. Their solution was to 
divide the screen horizontally into 40 groups of 7 pixels. Each memory location 
would represent information for seven adjacent pixels. This lowered the 
memory requirement to 7680 bytes per screen. Since it was easier to work in 
8K blocks of memory, this left an unused 512 bytes of memory per page. 

In 1977, when memory chips were expensive, most Apple II computers were 
sold with only 16K of memory. With various monitor areas, zero page, the 
stack, and the text page using the first 2K (2048) bytes of memory, it seemed 
logical to place Hi-Res graphics screen # one at the upper end of memory, loca- 
tions 8192 to 16383 ($2000- $3FFF). Screen # two of Hi-Res graphics was plac- 
ed in the 8K block of memory just beyond locations 16384 to 24575 ($4000 
-$5FFF). It was usable by owners who purchased extra memory. Both of these 
screen's locations are hardwired into the machine and, unfortunately, are not 
relocatable. In those days, before DOS and Applesoft made their debut, In- 
teger BASIC programmers whose machines contained 48K of memory could 
start their program at the top of memory and write 32K of code. 

Today, Applesoft programmers face the dilemma of where to place their pro- 
grams without overwriting the information stored in the Hi-Res screen areas. 
Since Applesoft loads a program immediately above the text screen which 
begins at $800 or 2048 decimal, only small programs fit, if they are using Hi- 
Res graphics commands. The solution is to set the Applesoft pointers so that 
the program loads above the Hi-Res screen. Unfortunately, you waste the 6K 
of usable memory between the operating system and the beginning of Hi-Res 
screen one. In retrospect, what seemed to be a logical choice in 1977 is cumber- 
some today. 

The Apple's Hi-Res screen is considered memory-mapped. If you were to 
change the values of the first 40 bytes of screen memory so that each turned on 
all 7 pixels, then the screen would display a solid white line at the top. Chang- 
ing any particular byte in Hi-Res memory directly affects the resultant picture. 
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Any byte in screen memory consists of a sequence of eight individual bits If 
a bit is on, it has a value of 1 ; if it is off, it has a value of 0. This on-off system of 
numbers is called "Binary". Binary numbers, represented by strings of 0's 
and 1 s, have their least significant numbers starting at the right, as shown: 

128 64 32 16 8 4 2 1 
00001 =$01 

Each successive move of a bit to the left results in the value of the byte being 
multiplied by two. 5 

128 64 32 16 8 4 2 1 
00010 =$02 

Eventually, the on bit would be shifted to the far left with a value of $80 or 
128 decimal. 

Th u H t? CS screen ' s invention is in reverse. Pixel values increase from left 
to right. This can be verified by poking values into the primary screen's first 
memory location, $2000. To do this it, is best to enter the monitor with a 
CALL -151 from BASIC. Hi-Res graphics with mixed text can be invoked 
with the following commands: 

*C050 <CR> SET GRAPHICS MODE 

* C053 < CR > SET MIXED TEXT AND GRAPHICS 

*C057 <CR> SET HI-RES GRAPHICS 

Most likely, the screen is not clear. Although an HGR from Applesoft would 
clear it before entering the monitor, you should learn to perform this operation 
from the monitor. Typing a 2000:00 <CR > will place a zero or no lit pixels in 
the first screen location. Doing the following memory move shifts the to all 
other locations in a cascade effect on Hi-Res screen page one: 

*2001<2000.3FFFM <CR> 

If you enter 2000:01 <CR>, a single dot appears at the top left. If you 
enter 2000:02 <CR>, the dot moves one position to the right. A 2000:04 
<CR> moves it right once again. Since seven dots are controlled by one byte 
you can do this seven times. The value $40 shifts it to the seventh position If 
you shift the dot one extra time with the value $80, nothing happens. This 
eighth bit position doesn't activate any pixels. 
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PIXEL POSITIONS 



CO 



$01 
$02 
$04 
$07 
$08 
$0F 
$1F 
$7F 
$80 
$FF 



BINARY 
128 64 32 16 8 4 2 1 


















1 







1 
















1 













1 1 


1 













1 













1 1 1 1 







1 


1 


1 


1 


1 







1 


1 


1 


1 


1 


1 


1 




1 

























1 


1 


1 


1 


1 


1 


111 



You can see from the diagram that 2000:07 turns on the first three pixels and 
either 2000:7F (127) or 2000:FF (255) turns on all seven dots. As you shall see 
shortly, the eight bit, the high bit or most significant bit, is used for color con- 
trol. While it is not important to use the hi bit in black and white graphics, it 
does explain why there is a WHITE1 and WHITE2, as well as a BLACK 1 and 
BLACK2. The difference between WHITE1 and WHITE2 is whether or not 
the hi bit is set. 

Those using a color TV as a monitor will notice that some of the lit pixels are 
a violet like color (magenta) while others are green. The Apple II's designers 
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alternated the colors every other column. The leftmost column in any row 
always starts with violet if the high bit is off, followed by green in the next col- 
umn. Thus, there are 140 violet-green pairs in any row. Since the leftmost col- 
umn is column 0, violet pixels are always in even columns, (i.e., 0,2,4 ... 278). 
Conversely, green pixels are always in odd columns (i.e. 1,3,5 ... 279). 

There is a logical reason for alternating the Apple's colors from column to 
column. The pairs of colors are related to the square wave pulses in respect to 
the colorburst reference signal in television receivers. If the Apple sends a pulse 
that corresponds with the peak of the color signal, you get one color; if the pulse 
corresponds to the low point of the color signal, you get the complementary col- 
or. The Apple can send a pulse shifted 1/4 cycle (in between). That generates 
two other complementary colors, also in adjacent pairs. I should note that this 
arrangement is completely independent of the physical locations of the colored 
phosphors on the television picture tube. 



HI- BIT OFF (0) 


l v 


G 


V 


G 


V 


G 


V 


G 


V 


G 


V 


G | V 


G 



$2000 
OTH BYTE (EVEN) 



$2001 
1ST BYTE (ODD) 



When the hi-bit is set in any byte, the pixel colors shift to blue (cyan) and 
orange. 

HI- BIT ON (1) 



B 


O 


B 


O 


B 


O 


B 


O 


B 


O 


B 


O 



B 



$2000 
OTH BYTE (EVEN) 



$2001 
1ST BYTE (ODD) 



When color is considered, there are three primary colors; green, blue and 
red. Each primary color has a complement. These are magenta (violet), 
yellow, and cyan (blue) respectively. If a primary color plus its complement are 
projected on a screen, the result is white, as shown: 



PRIMARY COLOR 

GREEN + 

BLUE + 

RED + 



SECONDARY COLOR 

MAGENTA (VIOLET) = WHITE 

YELLOW = WHITE 

CYAN (LIGHT BLUE) = WHITE 



What happens on a color monitor is quite similar. If only the first pixel is lit, 
you get a violet dot. If only the second pixel is lit, you get a green dot. If the 
first and second pixels are lit, the colors cancel each other and you get an 
elongated white dot, which is actually two dots wide. The same is true with the 
blue-orange pairs, except the hi bit is set. 

If you want to draw a solid line of one color over the length of the byte, you 
must turn on the correct sequence of bits. 
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V/B 


G/O 


V/B 


G/O 


V/B 


G/O 


V/B 


HI-BIT 
















OPT 


$00 or $80 


BLACK 


• 




• 




• 




• 




$55 


VIOLET 




• 




• 




• 






$2A 


GREEN 


• 




• 




• 




• 


• 


$D5 


BLUE 




• 




• 




• 




• 


$AA 


ORANGE 
















OPT 


$7F or $FF 


WHITE 


1 


2 


4 


8 


16 


32 


64 


128 


VALUE (DECIMAL) 



EVEN BYTE 



One of the first things you notice, is that although violet and green pixels can 
be mixed in the same byte, violet and orange pixels can't. The hi-bit is either 
on or off. You must settle for combinations of violet and green, or blue and 
orange. 

Applesoft users might recall some of the color problems they have en- 
countered in the past. If you were plotting an orange horizontal line starting at 
column that extended some 20 pixels across the screen and then attempted to 
plot a white line vertically in column that crossed that orange line, the first 
few pixels would suddenly turn green. This is because the white color chosen, 
WHITE1, turned the hi bit off. 

The unfortunate result in choosing seven pixels per byte is that the starting 
color of every other byte alternates. The even bytes start with violet, while the 
odd bytes start with green. If you were to poke a $55 into location $2000, you 
would get a violet line. But if you poked $55 into location $2001 , you would get 
a green line, as indicated below: 





V 


G 


V 


G 


V 


G 


V 


G 


V 


G 


V 


G 


V 


G 




• 




• 




• 




• 


• 




• 




• 




• 



$55 @ location $2000 



$55 @ location $2001 
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In order to correct this effect, the pixels in the second byte would have to be 
shifted over one position so that the value of $2 A would produce violet, as 
shown below. We will continue this discussion later, when we discuss shape 
tables. 



V 


G 


V 


G 


V 


G 


V 


G 


V 


G 


V 


G 


V 


G 


• 




• 




• 




• 




• 




• 




• 















$55 @ location $2000 $2A @ $2001 



The following table lists the values needed to display solid colored lines: 



COLOR 


EVEN 
OFFSET 


ODD 
OFFSET 


VIOLET 


$55 


$2A 


GREEN 


$2A 


$55 


BLUE 


$D5 


$AA 


ORANGE 


$AA 


$D5 


WHITE 


$7F 


$7F 




$FF 


$FF 


BLACK 


$00 


$00 




$80 


$80 



It is an understatement to say that if you were to map the sequential memory 
locations of the Hi-Res display, they would not map row by row down the 
screen as you would expect the television's raster scan to plot these pixels. To 
illustrate this point, let's plot white line segments on a screen by poking a $FF 
or decimal 255 into each sequential byte of the Hi-Res page one screen 
memory. 

10 HGR : POKE -16302,0 
20 FOR I = 8092 TO 16384 
30 POKE 1,255 
40 NEXT I 
50 END 

As you would expect, the computer plotted the first 40 bytes across row 0, 
but the next 40 bytes appeared 1/3 of the screen below on line 64. The third 
group of 40 bytes appeared 64 rows below that in the bottom third of the 



screen. You would then expect the 4th line to plot directly below line but no, 
it appears as line eight. Soon the whole display fills up first by thirds, then in 
groups eight lines apart. If the plotting is stopped with a control C when the 
screen is half filled, you will notice that there are 24 groups of eight lines. 

Perhaps the most frequently asked question about the Hi-Res screen is: Why 
would the designers make programming the screen so difficult? In 1977, com- 
puter components were much more expensive. In an effort to produce a com- 
puter for a mere $1200, several short cuts were taken in the video circuits. Two 
OR gates were saved by incorporating this strange interlacing with the televi- 
sion's raster scan. 

If you look at the memory addresses for the beginning of each of the 192 
screen lines, you begin to detect a pattern. The difference in base addresses 
between any two lines in one of the 24 subgroups is + 1024 bytes, or $400. The 
differences between each subgroup in each third of the screen is +128 bytes. 
And finally, the difference between lines between each third section is + 40 
bytes. 



LINE 



ADDRESS 



a, 
D 
O 
erf 
O 

« 

H 



$2000 

$2400 

$2800 

$2C00 

$3000 

$3400 

$3800 

$3C00 

$2080 

$2480 



8192") 

9216 J 
10240 
11264 
12288 
13312 
14336 
15360 

8320 

9344 



+ 1024' 
BYTES 



+ 128 
.BYTES 



Oh 

D 
O 
<* 
O 
« 



(X 

9 

O 
» 

as 
H 

CO 



•48 


$2300 


8960 


49 


$2700 


9984 


50 


$2B00 


11008 


51 


$2F00 


12032 


52 


$3300 


13056 


53 


$3700 


14080 


54 


$3B00 


15104 


55 


$3F00 


16128 


56 


$2380 


9088 


57 


$2780 


10112 


58 


$2B80 


11136 


59 


$2F80 


12160 


60 


$3380 


13184 


61 


$3780 


14208 


62 


$3B80 


15232 


63 


$3F80 


16256 


64 


$2028 


8232 



+ 1024^ 
BYTES 



.+ 40 BYTES 
'(THIRDS) 



+ 128 
IBYTES 



+ 1024 
BYTES 



ETC 



A formula can be derived from the preceding such that, given any line 
number, the starting memory address for that line can be found. If Y is the line 
number from to 191, then the section of the screen that the line is in is A = 
INT(Y/64). To find which subsection the line is in, use B = INT(D/8), where 
D = Y -64 s|eA. And to find which line Y is on within the subsection, use C 
= D -8*B. 
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Memory Location = 8192*SN + 1024*C + 128*B + 40*A 



where SN = HI-RES PAGE # (1-2). 

Thus, if Y =93 then A = INT (93/64) = 1 
D = 93-64 = 29 

B - INT (29/8) = 3 
C = 29- 8*3 = 5 

If SN =1 then 

memory Location = 8192 + 1024*5 + 128*3 + 40*5 = 13796 
An assembly language implementation of this algorithm is shown below 









1 


♦MEMORY 


ADDRESS FOR START 


OF SCREEN LINE 








2 




ORG 


$6000 










3 


Y 


DS 












4 


A 


DS 


1 










5 


D 


DS 


1 










6 


B 


DS 


1 










7 


C 


DS 


1 










8 


TEMP 


DS 


1 










9 


SN 


DS 


1 










10 


WORKL 


DS 


1 










11 


WORKH 


DS 


1 










12 


HIRESL 


EQU 


$01 










13 


HIRESH 


EQU 


HIRESH+$01 




6009: 


AD 00 


60 


14 


START 


LDA 


Y 


;Y=LINE # 


600C: 


4A 




15 




LSR 




; DIVIDE BY 32 


600D; 


4A 




16 




LSR 






600E: 


4A 




17 




LSR 






600F. 


4A 




18 




LSR 






6010 


4A 




19 




LSR 






6011 


8D 01 


60 


20 




STA 


A 




6014 


OA 




21 




ASL 




; MULTIPLY BY 64 


6015 


OA 




22 




ASL 






6016 


OA 




23 




ASL 






6017 


OA 




24 




ASL 






6018 


OA 




25 




ASL 






6019 


8D 05 


60 


26 




STA 


TEMP 


; TEMP=64*A 


601C 


AD 00 


60 


27 




LDA 


Y 




601F 


38 




28 




SEC 




;SET CARRY TO SUBTRACT 


6020 


ED 05 


60 


29 




SBC 


TEMP 




6023 


8D 02 


60 


30 




STA 


D 


; D=Y-(64*A) 


6026 


4A 




31 




LSR 




; COMPUTE D/8 


6027 


4A 




32 




LSR 






6028 


4A 




33 




LSR 






6029 


8D 03 


60 


34 




STA 


B 


; B=INT(D/8) 


602C 


OA 




35 




ASL 




; COMPUTE 8*B 


602D 


: OA 




36 




ASL 






602E 


: OA 




37 




ASL 






602F 


: 8D 05 


60 


38 




STA 


TEMP 


; TEMP=8*B 


6032 


: AD 02 


60 


39 




LDA 


D 




6035 


: 38 




40 




SEC 




;SET CARRY 


6036 


: ED 05 


60 


41 




SBC 


TEMP 


; SUBTRACT TEMP 


6039 


: 8D 04 


60 


42 




STA 


C 


; C=D-(8*B) 



oUjL: 


a n nn 
AV UU 




A O 

4 j 




T HA 

LDA 




• PT PAD UAD^TMr DCPTCTPD 

J LLLAK WUKK 1INL KLLlbl LK 


oujl: 


on m 

OU KJf 


An 
OU 


/. /. 
44 




OTA 
b 1 A 


W0RKL 




An/ i • 


qt\ no 
oJJ Uo 


An 
OU 


A C 

40 




b 1 A 


W0RKH 




An /. a ■ 

0U44 : 


a n nA 
AJJ UO 


An 
OU 


/.A 
40 




LL/A 


SN 


;L0AD SCREEN # 


An/. 7 • 

ou4 / : 


n a 
UA 




/■ 7 
4 / 




A CT 


;MULT BY 32 


0U4o : 


n a 
UA 




/. P. 
4o 




ACT 
AoL 






OU4V I 






4y 




ACT 
AoL 






ou4a: 


UA 




^n 




ACT 






aa/, r ■ 
ou4d; 


OA 
UA 




Dl 




ACT 






dual.: 


QT\ no 
oJJ Uo 


An 
OU 


CO 




CTA 
b 1 A 


WUKlxrl 


• CTnpp tw utph npnpp 
jbiUKL UN niLn ukdlk 


oU4r : 


AD 04 


An 
0U 


JJ 




i n a 
LDA 


l ; 


t n A w c 
LUAU L 


6052: 


OA 




54 




ASL 




MTTI TTD1 V DV A 

MULllrLl BY 4 


6053: 


OA 




55 




ASL 






Anc / • 

ou:>4: 


6D 08 


An 
0U 


^A 
JO 




A TV" 1 

ALfL 


\Jf\DV T4 

WUKKn 


Ann Tn ppwrmic ht npnpp 

RUL) LVJ rI\£jV IUUj fll Ur\L/Ll\ 


oU-> / : 


on no 
oD Uo 


An 
OU 


C -7 

D f 




b 1 A 


unpVH 

WUKKn 


CTnp f r \cv t w h t np nF P 


Anc A ■ 


ac no 
Ah Uj 


An 
0U 


cq 
_>o 




t nv 
LDA 


R 
D 


PFPAT T R 
KLLALL D 


Ancn ■ 

oU_>D: 


HO 

ho 




3y 


LUN 1 


TMV 
UNA 






oUofc.: 


p a 
LA 




An 
OU 




DLA 






ovdc : 


i?n i /, 
rU 14 




A1 
Oi 




Ren 




pHFrv rnR R— n 


AnAi • 

ouoi : 


P A 

LA 




Da 




dla 






AnAi . 

oUOz : 


t?n np 
rU UL 




AQ 
0J 




DPA 
DtU 


QV TD1 

brvir 1 


LrlLLK r UK d=1 


A OA A ■ 

oU04: 


P A 

LA 




A/. 

04 




ncv 
DLA 






6065: 


A9 01 




A C 

0_> 




t riA 
LDA 


ff $U1 


• Ann i Tn utpu nonuD 
; AUD 1 1U nlbn UKULK 


AnA"7 . 

ouo7: 


6D 08 


An 
OU 


AA 

Oo 




a np 
ADL 


WUKKn 




606A: 


8D 08 


60 


A"7 
O/ 




bl A 


I.IADl'U 

WUKKn 




606D: 


4C 5D 


60 


68 




JMP 


pnMT 
LUN 1 


PnMTT WT1TJ Pm IMTT MP 

LUlNllNUfc LUUINllNL 


6070: 


A9 80 




69 


SKIP1 


I HA 

LDA 


#$80 


I r\ K T\ APP I.ITTLI 1 lO 

LOAD ALL W11H Izo 


6072: 


8D 07 


60 


70 




CTA 
blA 


W0RKL 


Ann Tn i nu nDncD 
RUU l U LUW UKDC.K 


6075: 


AD 01 


An 
OU 


7 1 
/ 1 


bKlrU 


t riA 
LIJA 


A 


DT7P ATT A 

KLLALL A 


6078: 


OA 




7 T 
/Z 




ACT 

AbL 




MTIT TTPT V RV "^9 
11UL 1 lrL I 15 1 jZ 


Amn • 

oO/V: 


n a 
UA 




7 Q 




ACT 
AbL 






607A: 


OA 




74 




ACT 

AbL 






607 B: 


OA 




75 




A CT 

AbL 






607C: 


OA 




7A 
/O 




ACT 

AbL 






Amn . 

ou/D: 


An m 

OD U/ 


An 
OU 


77 
/ / 




A TV" 1 

ADL 


W0RKL 


Ann Tn i m.i nDncD 
; ADD 1U LUW UKDLK 


6080: 


8D 07 


60 


78 




CTA 
b 1 A 


W0RKL 


CTPD T7 DAPf TM I Hl.l PDnTTD 

b iUKL BALK. 1 IN LUW UK1JLK 


6083: 


AD 01 


60 


79 




t r\A 
LDA 


A 


D CPA T T A 

; KtLALL A 


6086: 


OA 




80 




A CT 

AbL 




Mi it TTDT V DV D 

; NULl IrLY Dl o 


6087: 


OA 




81 




ASL 






6088: 


OA 




82 




ASL 






6089: 


6D 07 


60 


83 




A TV 

ADL 


W0RKL 


; ADD TO L0 ORDER 


60 8C: 


8D 07 


An 
oU 


O A 

o4 




CT A 

b 1 A 


W0RKL 




608F: 


AD 08 


An 
0U 


oc 
OJ 




t nA 
LDA 


W0RKH 


; MOVE RESULTS TO ZERO PAGE 


Anoo ■ 


RT\ nA 
oJJ UA 


An 

OU 


AA 
OO 




CTA 

J In 


HIRESH 




6095: 


AD 07 


60 


87 




LDA 


W0RKL 




6098: 


85 01 




88 




STA 


HIRESL 




609A: 


60 




89 




RTS 







— END ASSEMBLY— 



This implementation is rather lengthy in that it takes 79 instructions. It was 
chosen more for its clarity rather than for its speed. Notice that the multiplica- 
tions are tricky, and that 40 $ A is split into two easier multiplications, 
(8 +32) sfcA. A much faster algorithm, taking only 24 instructions to calculate 
the screen position for the Yth line, and an additional 18 instructions for the X 



offset, is listed in the Programmer's Aid Chip at $D02E under the label 
HPOSN. It is also listed under HPOSN in the Applesoft ROM at $F411. The 
Y coordinate is placed in the Accumulator, the lo byte of the X coordinate in 
the X- register, and the hi byte in the Y- register. The screen position is return- 
ed in HBASL and HBASH in zero page locations $26 and $27, respectively. 
HMASK is stored in $30. 

I would like to make the point that even 24 instructions is far too many if you 
are doing fast screen animation. Consider the problem of simply plotting a 
moving star background for your space game. Twenty stars are scattered about 
the screen. It takes 480 instructions just to locate the starting memory locations 
for each line where the star is to be plotted. This doesn't even consider the 
algorithm needed to decide which pixel in which of 40 bytes on the line needs to 
be activated. Clearly, a much faster method must be devised. That method is 
called Table Lookup, and it will be thoroughly discussed in the next chapter. 

The X coordinate calculation is much clearer, since the 40 bytes in each line 
are stored sequentially in memory. Recalling that there are 7 bits per byte 
times 40 bytes per line gives us 280 bits per line. 

Given X, the byte offset is 

E = INT (X/7). 
and the position within the byte is 

F = X - 7#E 
For example, if the X coordinate is 152 

E = INT (152/7) = 21 and F = 152-7*21 = 5. 

So, for the screen coordinate ( 152,93 ), the memory 
location is 13896 + 21 = 13917, the 5th bit activated. 

While the formulas for finding the proper byte and bit positions for the X 
direction are rather simple; dividing by seven normally requires a complicated 
divide subroutine. Again, speed is a problem. Although I'll present a complex 
subroutine below to accomplish the job, it is much faster and simpler to resort 
to Table Lookup algorithms. Still, it is a matter of trade-offs, using speed ver- 
sus memory. The tables require 384 bytes plus some code; the subroutine re- 
quires only the code. 

The subroutine below accepts the X coordinate as a hexadecimal value in the 
A and X registers. The X register contains the hi byte value. It returns the 
horizontal byte offset in the Y register and the bit position within that byte in 
the Accumulator. The theory behind the algorithm is rather simple, but the im- 
plementation is complicated because to divide the X position (0-279) by 7 to 
obtain the horizontal offset is tedious in machine language, in addition to being 
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complicated by the use of a double precision X value (X values > 255 require 
two bytes). 

The division is accomplished by successive subtraction. The idea is subtract 
140 to find which half of the screen the point lies, then narrow it to which 
quarter of the screen. When we have located the position within four bytes, 
seven is subtracted successively until a zero is crossed. The remainder is the bit 
position within that screen byte. The hexadecimal plotting value is returned 
from a table. 



XCOR 


LDY 
DEX 


#$00 


;TEST IF X COORDINATE >255. X COORDINATE 

. t.I/"\TTT T"\ OHMT ATM A /"\MT? XT? T*r»TTT? 

; WOULD CON IAIN A ONE IF I RUE 




BNZ 


XC0R2 


;TEST FOR SPECIAL CASE 




PTTD 

bUB 


#$FC 


; SUBTRACTS LARGEST MULTIPLE OF 7 IN 255 




LDY 


#$24 


;SET PROVISIONAL QUOTIENT 




BNZ 


XC0R8 




XC0R2 


SEC 








SBC 


#$8C 


;LEFT OR RIGHT HALF SCREEN? 




BCC 


XC0R3 






LDY 


#$14 


; RIGHT HALF, SET QUOTIENT 




BNZ 


XC0R4 




XC0R3 


ADC 


#$8C 




XC0R4 


SEC 








SBC 


#$46 


; WHICH QUARTER OF SCREEN 




BCS 


XC0R5 






ADC 


#$46 






JMP 


XC0R6 


;SKIP TO 8THS STAGE 


XC0R5 


PHA 
TYA 
CLC 




;SAVE ACC 
;GET QUOTIENT 




ADC 


#$0A 


; INCREMENT FOR QUARTER 




T A V 

1AY 








PLA 






XC0R6 


SEC 








SBC 


#$23 


; WHICH 8TH OF SCREEN? 




BCS 


XC0R7 






CLC 








ADC 


#$23 


; RESTORE DIVIDEND 




JMP 


XC0R8 




XC0R7 


PHA 
TYA 
CLC 








ADC 


#$05 


; INCREMENT FOR EIGHTS 




TAY 




; RESTORE QUOTIENT 
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PLA 

XC0R8 SEC 

SBC #$07 ;NOW KEEP SUBTRACTING 7 
BCC XC0R9 ; UNTIL ZERO IS CROSSED 
INY 

BNZ XC0R8 
XC0R9 CLC 

ADC #$07 ; RESTORE TO GET REMAINDER 
TAX 



BITS 



LDA BITS,X;GET BIT FROM TABLE 
RTS 

HEX 01 02 OA 08 10 20 AO ;BIT POSITION TABLE 



To complete the discussion of the Hi-Res screen's architecture, I'd like to 
mention what happened to the 512 unused bytes in Hi-Res screen memory. Se- 
quential memory is plotted in lines separated into thirds on the screen. The top 
line of the bottom third (line #128) uses memory locations 8272 through 8311. 
It then jumps to the top of the screen, but eight lines down, or line #8. These 
forty memory locations are 8320 through 8359. Notice there is a gap of eight 
unused bytes. These unused bytes are at the end of every line in the bottom 
third of the screen. These 64 lines times 8 bytes accounts for the missing 512 
memory locations. 



RASTER GRAPHICS 



Programmers talk about Raster Graphics and Vector Graphics on the Apple 
II. In reality, due to the nature of the hardware, vector graphics is a misnomer. 
Television sets and monitors are raster scanners. Starting at the top of the 
screen, they scan one line at a time and turn pixels on or off as needed. True 
vector graphics generators have an electron gun that can move in any direc- 
tion, so that the beam draws directly between end points. 

What is meant by Vector Graphics on the Apple is that a line consisting of a 
string of pixels is drawn by the television's raster scan. However, raster 
graphics differs in that entire bytes representing parts of the shape or line are 
placed into Hi-Res memory locations to obtain a Hi-Res picture. You don't 
deal in individual pixels per se, but in manipulating Hi-Res shapes a byte at a 
time. The entire shape is plotted as a block. In some literature, it is referred to 
as the block shape method. 

RASTER SHAPE TABLES (PROS AND CONS) 

Raster Graphics shape tables, which are bit-mapped shape tables, differ 
substantially from Apple's Hi-Res shape table routines. Apple's shape table 
routines, as described in Chapter 1, are plotting vectors that control direction 
of either plot or no-plot commands. These shape tables can be scaled, rotated, 
or colored entirely to one of six Hi-Res colors. Bit-mapped shapes, however, 
are precise instructions used to determine which pixels to activate in a par- 
ticular section of the screen. Although the shape's detail and color control are 
superior, they can't be easily scaled or rotated. 

At first glance, the pros and cons of using one versus the other appear to be a 
toss up, but the real advantage in using bit-mapped shape tables is the speed of 
implementation. Placing a bit-mapped shape table on the screen involves only 
moving bytes of that table stored in memory to the specific screen memory 
locations where you want that shape to be drawn. Apple shape tables, on the 
other hand, require time-consuming machine language routines to translate 
these plotting vectors into a shape on the screen. 



FORMING A BIT MAPPED SHAPE TABLE 

The shape's size must be decided before forming a bit-mapped shape table. 
A shape can be as large as the entire screen, or as small as one byte wide by one 
line deep. But in each case, the shape's width is N bytes wide, or a multiple of 
seven pixels wide. A shape doesn't have to be 7,14,21... pixels wide, but if a 
shape were, say, 16 pixels wide, it would require a width of 3 bytes. The re- 
maining five pixels would be zeroed. 

The second step is to plot the shape's pixels on a sheet of graph paper. A 
rocket whose shape table can be used later for an arcade game is shown below. 
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1st Byte 



2nd Byte 



3rd Byte 

















■ 


■ 




■ 


■ 


■ 




■ 




























■ 


■ 




■ 


■ 


■ 




■ 




























■ 


■ 




■ 


■ 


■ 




■ 




























■ 


■ 




■ 


■ 


■ 




■ 




























□ 


□ 




□ 


□ 


□ 




□ 




























□ 


□ 




□ 


□ 


■ 




□ 


□ 






■ 


□ 




□□□□□□□□□□□□□□□□□a 



WHITE SHIP 



As a first example, we shall plot this shape in white, thus ignoring color pro- 
blems for the time being. Recall that the color white is produced when adjacent 
violet and green pixels, or blue and orange pixels, are activated simultaneous- 
ly. To produce a white ship, all of the pixels will be used to form the table. 
Some of the readers will question whether the ship is entirely white where bytes 
have an odd number of pixels, such as in the first and third lines. If you took a 
magnifying glass to the ship's shape on the TV screen, you would see fringes of 
violet or green at the edges of an otherwise white ship. This, of course, would 
not matter on a black and white monitor. 

For those that have difficulty converting pixel patterns into hexadecimal 
values, it is easier if you split the byte's seven bits into a 4-3 pattern. 
Remember that the right most three dots plus its hi bit is the first part of the 
byte, or "hi nibble", as four bit halves of a byte are called. 




Encoding the rocket's first byte, the first row is as follows: 

1 2 3 4 I 5 6 7 PIXEL POSITION 



and the first byte in the last row is: 




The rocket ship's shape table becomes: 



01 


00 


00 


03 


00 


00 


07 


00 


00 


OF 


00 


00 


7F 


7F 


00 


7F 


IF 


07 


7F 


7F 


IF 


78 


7F 


7F 



HI BIT 



1 2 4 8 1 2 4 8 




1 


2 


3 


4 


5 


6 


7 










• 


• 


• 


• 




1 


2 


4 


8 


1 


2 


4 


8 



PIXEL POSITION 



HI BIT 



Producing a shape table for the same ship in a particular color presents a 
more difficult problem. To produce a violet color, all of the green pixels (or 
those dots in odd columns) must be suppressed. The revised drawing of the 
ship's shape table is shown below. 
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VIOLET SHIP 
(EVEN OFFSET) 



VGVGVGVGVGVGVGVGVGVGV 



where % — indicates pixel on 

— indicates suppressed dots of original shape 

Taking the 5th row, 1st byte as an example: 

12 3 4 15 6 7 PIXEL POSITION 



HI BIT 




The complete shape table for the violet colored space ship is: 



01 


00 


00 


01 


00 


00 


05 


00 


00 


05 


00 


00 


55 


2A 


01 


55 


OA 


05 


55 


2A 


15 


50 


2A 


55 
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At this time it would be instructive to actually plot both white and violet 
space ships on the Hi-Res screen. This can be done by poking the appropriate 
bytes into Hi-Res memory. 

When we talked about how the screen was mapped, we showed the starting 
addresses for the first eight lines of the screen. The starting addresses of each 
line are 1024 bytes or $0400 apart. Enter the monitor with a CALL - 151, 
then turn on the Hi-Res graphics page 1 and clear the screen as follows: 



*C050 
*C053 
*C057 

* 2000:00 

* 200 1< 2000. 3FFFM 



<CR> ;SET GRAPHICS MODE 
<CR> ; SET MIXED TEXT & GRAPHICS 
<CR> ;SET HI-RES GRAPHICS 
<CR> 

<CR> ;CLEAR PAGE 1 GRAPHICS 



Now poke in the shape table for the white ship. It will appear at the upper 
left corner of the Hi-Res screen. 



*2000:01 0000 

* 2400:03 0000 

* 2800:07 0000 
*2C00:0F 0000 
*3000:7F 7F00 
#3400:7F 1F07 
*3800:7F 7F1F 
#3C00:78 7F7F 



A white ship appears. Now clear the screen and poke in the shape table of the 
violet ship. The violet ship's table starts at the screen's far left, which is the 0th 
byte or offset into a particular 40 byte row. Since 0,2,4 are considered even 
numbers, this is an even offset. As an experiment, poke the violet ship's values 
into an odd offset, one byte over. First, clear the screen, then type the follow- 
ing: 



* 2001:01 0000 

* 2400:01 0000 
*2800:05 0000 
*2C00: 

etc. 



Instead of a violet ship, you get a green space ship. This is because the even 
offsets start with violet as the first pixel, and the odd offsets start with green. 
Turning the first pixel on in the odd byte no longer turns on a violet dot, but a 
green dot. The solution is to use two sets of shape tables; one for even offsets 
and one for odd offsets. Another solution would be to shift the shape's bit 
pattern one bit when going from even to odd offsets; however, this is too time 
consuming for fast animation. 
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OTH OFFSET(EVEN) 1ST OFFSET(ODD) 



VGVGVGVGVG 



« !• 

GVGVGVGVGVGVGVGVG 



If the original (white) ship's shape is placed so that it begins in an odd offset 
(above diagram), and the green -columned pixels (the odd columns) are sup- 
pressed, the shape becomes: 



00 


00 


00 


02 


00 


00 


02 


00 


00 


OA 


00 


00 


2A 


55 


00 


2A 


15 


02 


2A 


55 


OA 


28 


55 


2A 



The first thing that you notice is that the two plotted shapes (even and odd) 
aren't identical. This can be observed by plotting the even offset table beginn- 
ing at $2000, and the odd offset table beginning at $2005. You will see that the 
odd offset ship is slightly shorter and the peak of the tail lacks a pixel in row 
one. This is caused by a lack of symmetry. 

This problem can be partially remedied by planning the shape so that the 
violet column and its adjacent green column are identical in form. For exam- 
ple, if an extra pixel were placed in row 1, column 2 of the orginal white shape 
of the ship, the peak of the tail would look identical for both the even and odd 
offsets. 

To reinforce the concept of keeping a shape symmetrical and identical while 
moving it a byte at a time to the right or left, we will consider the following 
shape, a green alien: 
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VGVGVGVGVGVGVG HEX 



EVEN 
OFFSET 
(GREEN) 



28 01 

28 01 

08 01 

22 04 

22 04 

22 04 

22 04 

22 04 



GVGVGVGVGVGVGV 



HEX 



ODD 
OFFSET 
(GREEN) 



54 00 
54 00 
44 00 



11 
11 
11 
11 
11 



02 
02 
02 
02 
02 



The even and odd offset shapes have been plotted directly below each other 
to show that the shapes are indeed identical, but the lower shape has been 
shifted one dot to the left. This effect is inherent in the hardware, because the 
colors alternate from column to column. Black and white shapes, however, 
don't require any shifts and, therefore, do not need both odd and even shape 
tables. 

It is important to design your shape with pixels of double width. Otherwise, 
when you block out the columns of the non-needed color, part of the shape may 
be absent in the designated color. While this isn't likely to happen if you form 
shape tables by hand, those ambitious programmers who write a utility to do 
this automatically might be surprised when plotting their utility generated 
shape tables. 
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What we have discussed so far is fine for simply plotting a shape on the 
screen, or even moving a shape left or right one byte or seven pixels at a time. 
But what would happen if you wanted to move a shape only one pixel or one 
horizontal position to the right? If the shape is moved to the right, it no longer 
has the same bit patterns in each byte. 

Consider the alien shape plotted entirely in white. Each time it is shifted 
right it forms a new bit pattern. By the sixth rightward shift, only the first col- 
umn of the shape remains in the first byte. Shift it right once more, and we are 
back to the beginning pattern, but one entire byte to the right. 



White - Oth Shift 



White - 1st Shift 



Since the width of a byte is seven pixels, there are seven shifted tables (0-6) 
for each of the seven positions. When the shape is shifted the fifth time, the pix- 
els extend into a third byte. This requires each of the seven shifted tables to be 
three bytes wide. 
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White - 6th Shift 



Color shape tables, as you might have guessed, have a similar logic for odd 
and even offsets. But, as we shall demonstrate, only seven offset tables are 
needed rather than the expected fourteen. 

If you take a simple horizontal line, six pixels wide, as a shape and form a 
shape table for its green color, you would always have three green pixels lit. As 
you shift this line over the seven positions, starting first with the even offset, 
then continuing over the odd offset, you will notice a pattern. Every other time 
that you shift, the pixel pattern remains the same. 

If you were to shift this shape to the right one column for each screen cycle 
using 14 shape tables, the shape would remain static for two cycles, then move, 
then stay put for two, then move once again. This produces a very jerky mo- 
tion. Since the shape tables duplicate themselves in pairs, it would be easier to 
use the Oth even, 2nd even, 4th even, 6th even, 1st odd, 3rd odd, and 5th odd 
for a total of 7 shifted tables. The 6th odd shape in the above figure, which ap- 
pears to be the eighth shape, isn't. It is actually a duplicate of the Oth even 
shape, but beginning at the next even-odd pair. 

In summary you have learned how bit-mapped shape tables are formed. In 
the next chapter, we shall learn how to draw and animate these shape tables. 
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CHAPTER 5 

BIT MAPPED GRAPHICS 



Drawing a bit-mapped shape table anywhere on the Hi-Res screen is a sim- 
ple procedure once the basic concept is understood. The shape table is stored 
sequentially in memory, either by rows or by columns. The technique, 
therefore, is to load each of the bytes, one at a time, into the Accumulator, find 
the position in memory for the screen location where you want to plot that byte, 
then store it in that memory location. 





ABC 






DEF 




/ 


Shap 


e 



B C D E 



t 



Shape Table 
in memory 



HI-RES SCREEN 



The difficulty, as shown in the previous chapter, lies in finding a particular 
memory location, given an X,Y screen coordinate. Speed is the critical factor 
in doing arcade animation; therefore, a technique known as Table Lookup is 
used to locate the starting address of any single line on the Hi-Res screen. 

Each of the 192 screen lines has a starting address for the first position (left 
most) or the Oth offset. The first line or line #0 is located in memory at location 
$2000. The second line is at $2400, etc. Each address takes two bytes. The first 
part is the hi-byte, which in the later case is $24. The second byte, $00 ,is the 
lo-byte. These can be separated into two tables, one containing the lower order 
address of each line (call it YVERTL) and the other containing the higher 
order address of each line, YVERTH. Each table is 192 bytes long (0-191). 

You can access any element in either table by absolute indexed addressing. 
The effective address of the operand is computed by adding the contents of the 
Y register to the address in the instruction. That is: 

EFFECTIVE ADDRESS = ABSOLUTE ADDRESS + Y REGISTER. 
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If our YVERTH table were stored at $6800 and we wanted to find the start- 
ing address of line 1 (remember lines are numbered 0-191), we would index in- 
to the table one position and load that value into the Accumulator, 

6800:20 24 28 2C 30 34 YVERTH TABLE 

so LDA YVERTH, Y where Y =$01 will fetch the value $24 from memory 
location $6800 +$01 = $6801, and place it in the Accumulator. 

Similarly, if YVERTL were stored immediately after the first table, then: 

68C0:00 00 00 00 YVERTL TABLE 

Y Register = $01 

LDA YVERTL, Y will take the value $00 stored in memory location 
$68C0 + $01 = $68C1, then place it in the Accumulator. 

Eventually, we will want to store the first byte from the shape table into 
memory location $2400. This can be done efficiently if the two byte address is 
stored sequentially in zero page. Let's store the lo byte half of the address, 
HIRESL, at location $26, and the hi byte half, HIRESH, at location $27 in 
zero page: 



LDY 


#$01 


;Y REGISTER CONTAINS LINE 


LDA 


YVERTH , Y 


; LOOKUP HI BYTE OF START 






;0F ROW IN MEMORY 


STA 


HIRESH 


; STORE ZERO PAGE 


LDA 


YVERTL, Y 


; LOOKUP LO BYTE OF ROW IN 






; MEMORY 


STA 


HIRESL 


; STORE ZERO PAGE 



We can change a particular Hi-Res screen memory location using zero page 
by indirect indexed addressing in the form: 

STA (HIRESL), Y Y Reg =$03 

If the computer finds a $00 in location $26 (HIRESL) and a $24 in location 
$27 (HIRESH), then the base address is $2400. The Accumulator stores a 
value into memory location $2400 + $03, or location $2403, as shown: 



INDIRECT INDEXED ADDRESSING 



STA (HIRESL).Y 




The final addressing mode that we must consider is Indexed Indirect Ad- 
dressing. It is of the form: 

LDA (SHPL.X) 

It is very similar to the the Indirect Indexed addressing mode except the in- 
dex is added to the zero page base address before it retrieves the effective ad- 
dress. It is primarily used for indexing a table of effective addresses stored in 
zero page. But in the form we are going to use it, the X register is set to 0; thus, 
it simply finds a base address: 
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INDEXED INDIRECT ADDRESSING 



LDA (SHPL.X) 

\^ INDIRECT ADDRESS 




$55 



$50 
$51 



$20 



$70 




LO BYTE 
HI BYTE 



The reason we must use this second form of indirect addressing is a shortage 
of registers in the 6502 microprocessor. We are already using the Y register in 
the store operation and there isn't an indirect indexed addressing mode of the 

?r?Lc2tT (S v PL) ' X ' ThuS ' We mUSt go to the alt e™ative addressing mode 
l-'lJA(SHPL,X). 

What this all boils down to is that we want to load a byte from a shape table 
into the Accumulator and store it on the screen with the following instructions: 

LDA (SHPL.X) ; STORE BYTE FROM SHAPE TABLE 
STA (HIRESL) ,Y ;ST0RE BYTE ON HI-RES SCREEN 

We can index into the shape table by incrementing the low byte SHPL by 
one each time, then store that byte into the next screen position on a particular 
line by incrementing the Y register. This zero page method is faster than doing 
the equivalent code with absolute index addressing, because two byte addresses 
can be handled with fewer instructions, less memory space, and with fewer 
machine cycles. 

Obviously, a generalized subroutine must be developed to find the screen 
memory address ( HIRESL & HIRESH ), given a line number and a horizon- 
tal displacement. We will call this subroutine GET ADR, short for Get Ad- 
dress: 
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Each time a row of shape table bytes is transferred to successive memory 
locations on the Hi-Res screen, the program will call the subroutine 
GETADR. The line's starting memory address is then offset by the horizontal 
location of the shape on the screen. 

Memory address = Line # starting address + horizontal offset 



GETADR 



LDA 
CLC 
ADC 
STA 
LDA 
STA 
RTS 



YVERTL.Y ;LOOK UP LO BYTE OF LINE 



HORIZ 
HIRESL 
YVERTH.Y 
HIRESH 



; ADD DISPLACEMENT INTO LINE 

; STORE ZERO PAGE 

;LOOK UP HI BYTE OF LINE 



where the Y register has the vertical screen value (0-191). 

If you are designing an arcade game, you will probably have several dif- 
ferent shapes on the screen at the same time. Perhaps your defending space 
ship is paddle-controlled to move vertically but always remains at one par- 
ticular horizontal offset; while the aliens, attacking in zig-zag fashion, always 
move horizontally from one side of the screen to the other. Keeping track of 
each shape's variables, which are inputted into a generalized drawing routine, 
is more easily done if a setup subroutine is incorporated into your program. 
This assures that you haven't forgotten to initialize anything before entering 
the drawing subroutine. 
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Only a few variables need to be defined in the setup routine: the location of 
the shape table, the horizontal displacement on the screen, and the width and 
depth of the shape. 

The following example is for the space ship that we designed a shape table 
for in the last chapter. A word on the notation used for determining the lo and 

^S 5 !^ 8 the Shape Called SHIP is suitable here. In ^e TED II + and 
BIG MAC assemblers from CALL APPLE, MERLIN from Southwestern 
Data Systems, and TOOL KIT from Apple, LDA #<SHIP obtains the lower 
order address of the table called SHIP. LDA # > SHIP returns the higher order 

, !i t ? $ - the LISA assembler fr oni ON-LINE Systems, LDA 
ffbHIP loads the lower order byte and LDA /SHIP loads the higher order byte 
as shown: ° 7 ' 



*SHIP SETUP 




SSETUP LDA 


#<SHIP 


STA 


SHPL 


LDA 


#>SHIP 


STA 


SHPH 


LDA 


#$08 


STA 


DEPTH 


LDA 


#$09 


STA 


HORIZ 


LDA 


#$03 


STA 


SLNGH 


STA 


TEMP 


RTS 





J LOAD LOWER ORDER BYTE OF SHAPE TABLE 
;L0AD HIGHER ORDER BYTE OF SHAPE TABLE 

; SHAPE IS 8 LINES DEEP 

; SHAPE STARTS IN 10TH COLUMN 

; SHAPE IS 3 BYTES WIDE 
; STORED HERE ALSO BECAUSE DRAWING 
; ROUTINE DECREMENTS SLNGH ON EACH 
;LINE AND VARIABLE MUST BE RESTORED 
;AT START OF NEXT ROW 



oS!r^ aW1 . g rOUtme 18 more efficient the fewer times it accesses the 
subroutine. Therefore, it is much faster to load and store on the 
same screen line until the end of the shape's width is reached. Drawing our 
spaceship a byte at a time across its width will only require calling GET ADR 
Eight times. But if we plotted down instead, GETADR would be called for 
each byte, or 24 times, an unnecessary waste of time. 

As we load and store across a particular screen line, we decrement SLNGH 
the ship's width until SLNGH equals zero. When we are finished with a row' 

™£ETE? T J!5SL t0 thC nCXt SCrCen Hne down and decrement the 
DEPTH. When DEPTH reaches zero, we have plotted all rows of the shape 
and we are finished. 
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INPUT: 

SHAPE ADDR: SHPL.SHPH 
X POSITION: HORIZ 
DEPTH OF SHAPE: DEPTH 
WIDTH OF SHAPE: SLNGH 
& TEMP 



> PUT TVERT( vertical pos.)Bl Y REG. 



JSR TO GETADR 
RETURN WITH HIRESH.HIRESL 



RESET SLNGH = TEMP 



GET BYTE FROM SHAPE TABLE 
LDA (SHPL.X) 



PLOT ON SCREEN 
STA (HIRESL) ,Y 



INC POINTI 
SHAPE IN I 
SHPL = i 


:r TO NEXT 
SHAPE TABLE 
SHPL + 1 






NEXT SCRE1 
IN 1 


2N POSITION 
( 



SLNGH = SLNGH - 1 



no 



IS SLNGH = 0? | 



yes 



TVERT 




TVERT + 1 


DEPTH 




DEPTH - 1 



no 



IS DEPTH = ? 



yes 



DONE 



Map of elements in 
shape table as they 
appear on the screen 






1 


2 


3 


4 


5 


6 


7 


8 


9 


• • • 






DRAW 



LDY TVERT 
JSR GETADR 



LDX 
LDA 
STA 

DRAW2 LDA 
STA 
INC 
INY 
DEC 
BNE 
INC 
DEC 
BNE 
RTS 



#$00 

TEMP 

SLNGH 

(SHPL,X) 

(HIRESL) ,Y 

SHPL 

SLNGH 
DRAW2 
TVERT 
DEPTH 
DRAW 



VERTICAL POSITION 

FIND BEGINNING HI-RES SCREEN ADDRESS 
OF ROW 



RESTORE VALUE OF WIDTH FOR NEXT ROW 

GET BYTE OF SHAPE TABLE 

PLOT ON SCREEN 

NEXT BYTE OF SHAPE TABLE 

NEXT POSITION ON SCREEN 

DECREMENT WIDTH 

FINISHED WITH ROW YET? 

IF SO, INCREMENT TO NEXT LINE 

DECREMENT DEPTH 

FINISHED ALL ROWS? 

YES, END 



Although the first row of the shape can be plotted at any TVERT (0-191) 
position, if TVERT began at 190, the computer would attempt to plot the third 
line at TVERT, which would equal 192. Indexing into the table that far would 
most hkely produce garbage, as you would index beyond the end of the table 
You should be always careful that: 
TVERT < = 192 - DEPTH 
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A simple test somewhere before the draw subroutine would suffice. Normal- 
ly, this should be incorporated into a paddle read-routine. This will be discuss- 
ed further in the next chapter. 



XDRAWING SHAPES 

Objects that move on the screen are shifted in position by erasing the object's 
first position before drawing it at its new position. The simplest method to ac- 
complish this is to draw the shape by exclusive-oring it before shifting it. 

The exclusive-or instruction (EOR) is primarily used to determine which 
bits differ between two operands, but it can also be used to complement 
selected Accumulator bits. The way it works is elementary. If neither a par- 
ticular memory bit or Accumulator bit is set or their values are zero, the result 
is zero. If either one is set, then the result is on. But if both are set, they cancel 
and the result is zero. 



MEMORY BIT ACCUMULATOR RESULT BIT IN 

BIT ACCUMULATOR 


EOR 1 1 

1 1 
1 1 

If we take a byte on the screen and EOR it with the same byte 

110 11 SHAPE ON SCREEN 

EOR 110 11 SHAPE 



RESULT 

from the shape table, the result is zero or a screen erase. A similar effect would 
happen if a blank screen were EORed with a shape then EORed once again. 

BLANK SCREEN 

EOR 110 11 WITH SHAPE 



110 11 RESULT IS SHAPE ON SCREEN 
EOR 110 11 



RESULT IS BLANK SCREEN 

Another use for EORing is that it doesn't damage the background if a shape 
is EORed on the screen, and then off again. However, it does distort the shape 
slightly. 
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1 
EOR 10 110 



BACKGROUND 
WITH SHAPE 



10 110 1 RESULT ON SCREEN (SHAPE 

DISTORTED LAST BIT) 

EOR 10 110 WITH SHAPE 



1 GET BACKGROUND BACK 

In the above example, an extra pixel in the shape's last bit position distorts 
the shape drawn on the screen. In the example below, the fourth bit position 
becomes a hole in the shape. 

10 BACKGROUND 
EOR 10 110 WITH SHAPE 



1 1 RESULT ON SCREEN 

hole here 

EOR 10 110 WITH SHAPE 



1 GET BACKGROUND BACK 



There are techniques to avoid distorting the shape wherein the background 
is likely to interfere during the drawing process. This involves a combination of 
EORing and ORing the Hi-Res screen, with the background stored on a sec- 
ond Hi-Res screen. An alternate method is to store the screen memory bytes in 
a temporary table equal in size to your shape, while you draw your shape. 
When erasing, you replace the shape with the background stored in your temp- 
orary table. This is a little complicated, but it works. An example using this 
method is presented at the end of this chapter. 

The OR memory with Accumulator (ORA) instruction differs from the 
EOR instruction in that if both memory and Accumulator bits are on, then the 
result is one, or on. 



MEMORY BIT ACCUMULATOR RESULT BIT IN 

BIT ACCUMULATOR 

o 
ORA 1 ! 

1 1 
1 1 1 
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If the background were as follows, and you ORed it with the shape, the 
shape is correct. 



10 10 10 BACKGROUND PAGE 1 

ORA 1 1 1 1 WITH SHAPE 



11110 10 GET SHAPE + BACKGROUND WITH 

NO HOLE IN SHAPE 

Unfortunately, if you EOR this result with the shape again, the background 
is flawed. 

11110 10 SHAPE + BACKGROUND 

XOR 1 1 1 1 WITH SHAPE 



1 FLAWED BACKGROUND 

Another solution is to take the shape with the background above and EOR it 
with itself, then EOR it with the background stored on page 2. However, it is 
probably quicker and easier to just copy the background stored on page 2 
directly to screen 1. 

11110 10 SHAPE + BACKGROUND 

XOR 11110 10 WITH ITSELF 



LOSE EVERYTHING 

XOR 10 10 10 WITH BACKGROUND STORED 

PAGE 2 



10 10 10 GET BACKGROUND BACK 

We can incorporate the exclusive-or instruction in our XDRAW routine. If 
we EOR the shape we had previously drawn on the screen, nothing remains. 



XDRAW LDY 
JSR 
LDA 
STA 
LDX 

XDRAW2 LDA 
EOR 
STA 
INC 



TVERT 

GETADR 

TEMP 

SLNGH 

#$00 

(SHPL.X) 

(HIRESL) ,Y 

(HIRESL) ,Y 

SHPL 



•.VERTICAL POSITION 



; RESTORE VALUE OF WIDTH FOR NEXT ROW 

;GET BYTE FROM SHAPE TABLE 

;X0R WITH BYTE ALREADY ON THE SCREEN 

;DRAW ON SCREEN 

;NEXT BYTE OF SHAPE TABLE 



TMY 
J. IN I 




; INciA I rUb 1 1 1UN UN bLKhiCiN 


DEC 


CT M^U 


; DECREMENT WIDTH 


BNE 


DRAW2 


; FINISHED WITH ROW? 


INC 


TVERT 


;IF SO, INCREMENT TO NEXT LINE 




topth 
iJCir in 


;D^CKEMENi UhrlH 


BNE 


DRAW 


; FINISHED ALL ROWS? 


RTS 




;YES, END ROUTINE 



Now that we know how to DRAW and XDRAW a bit-mapped shape 
anywhere on the Hi-Res screen, the principle for animating these shapes is the 
same as for Apple shapes discussed previously in Chapter 1 . A shape is erased 
from the screen, its new position is calculated, then it is redrawn at this new 
position. The procedure is outlined below: 



INITILIZE STARTING POSITION 

< 

DRAW SHAPE 



SMALL DELAY 



XDRAW SHAPE 



UPDATE SCREEN POSITION 



A delay has been inserted between the DRAW and the XDRAW to allow 
the object to be on the screen longer than it is off. Without the delay, the object 
is erased immediately after it is drawn. This does not give the shape's image 
sufficient time to remain on screen during one animation frame. The result is a 
badly flickering image. The necessary delay can be a accomplished by a call to 
the monitor WAIT subroutine. A hundredth of a second delay is sufficient, but 
it could be doubled by changing the value in the Accumulator to $56. 



LDA #$3C 

JSR $FCA8 ;CALL TO WAIT SUBROUTINE 



COLOR PROBLEMS WITH HORIZONTAL MOVEMENT 

When colored shapes are moved vertically, as with our paddle driven space 
ship, they remain in either the same even or odd offset in which they started. 
However, when an object moves horizontally a byte at a time, colors shift, or 
alternate, as the shape moves from an even to an odd offset. As we saw in the 
last chapter, two different shape tables are needed, one for the even offsets and 
another for the odd offsets. 

An algorithm must be devised to determine whether the HORIZ offset is 
odd or even. You can ascertain if a value is odd or even by right-shifting the 
value in the Accumulator so that the low bit enters the carry bit. Since only odd 



128 


64 


32 


16 


8 


4 


2 


1 - 



numbers contain a one in the first bit position, only odd numbers will set the 
carry. Of course, the carry must be cleared first or this operation will be 
meaningless. 

In order to make the example more meaningful, we will assume we have an 
even and an odd shape stored in a table called SHAPES. Each shape is one 
byte wide by eight bytes deep. The even offset shape occupies the first eight 
bytes, and the odd offset shape follows in the next eight bytes. Let us also 
assume that the shape table doesn't cross a page boundary (the hi byte is 
constant). 











1 


*EXAMPLE 


:C0L0R OFFSET PROBLEM & SOLUTION 










2 




ORG 


$6000 










3 


HORIZ 


DS 


1 










4 


SHPL 


EQU 


$50 










5 


SHPH 


EQU 


SHPL+$1 


6001: 


18 






6 




CLC 


; CLEAR CARRY 


6002: 


AD 


00 


60 


7 




LDA 


HORIZ ;L0AD HORIZ VALUE STORED AT $6000 


6005: 


4A 






8 




LSR 


; LOGICAL SHIFT RIGHT INTO CARRY 


6006: 


B0 


07 




9 




BCS 


ODD ;IF CARRY SET, GOTO ODD CODE 


6008: 


A9 


18 




10 


EVEN 


LDA 


#<SHAPES ;L0 BYTE OF EVEN SHAPE TABLE 


600A: 


85 


50 




11 




STA 


SHPL 


600C: 


4C 


13 


60 


12 




JMP 


CONT 


600F: 


A9 


20 




13 


ODD 


LDA 


#<SHAPES+8 ;L0 BYTE OF ODD SHAPE TABLE 


6011: 


85 


50 




14 




STA 


SHPL 


6013: 


A9 


60 




15 


CONT 


LDA 


#>SHAPES ;HI BYTE OF TABLE 


6015: 


85 


51 




16 




STA 


SHPH 


6017: 


60 






17 

ia 




RTS 




6018: 


00 


01 


02 










601B: 


03 


04 


05 










601E: 


06 


07 




19 


SHAPES 


HEX 


0001020304050607 OFFSET SHAPE 


6020: 


08 


09 


OA 










6023: 


0B 


OC 


0D 










6026: 


0E 


OF 




20 




HEX 


08090A0B0C0D0E0F ;0DD OFFSET SHAPE 



— END ASSEMBLY— 



You can easily see in the above example that the pointers to the proper shape 
table will be used correctly by our drawing subroutine. You can put a HORIZ 
value in location $6000 and single step the code in the monitor. If you don't 
have the single step and trace feature because you have an APPLE II PLUS, 
type a 6001G, then check locations $50 and $51 for the values of SHPL, and 
SHPH, respectively. Thus, if both the even and odd offset tables are generated 
for a violet colored object, the object will always remain violet at any horizontal 
screen position -39 if the correct table is used. 

Color shifting problems become more intricate if you intend to do very fine 
movement or single pixel moves to the left or right, versus coarse movements of 
a byte or seven pixels at a time. As we discovered in the last chapter, single 
pixel movements in color aren't effective due to the alternating columns of 
complementary colors. The shape tends to lag a cycle, then jumps two pixels. 

EVEN OFFSET ODD OFFSET 



SCREEN 



XPOS 





1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 




V 


G 


V 


G 


V 


G 


V 


G 


V 


G 


V 


G 


V 


G 


SHAPE 


1 






1 

1 




1 

2 




1 

3 




1 

4 




1 

5 




1 

6 





TABLE 



( 



( 



You can see from the above illustration that our shape stays in the same posi- 
tion for two cycles, then moves. It would be easier to move a shape two pixels 
horizontally at a time and use only seven shape tables for a shape instead of 
fourteen. 

The simplest method for keeping track of which offset table is to be used at a 
particular horizontal position is through tables. One table (XBASE) is needed 
for the horizontal byte for any horizontal screen position, and another (XOFF) 
is needed to determine which of the seven offsetted shape table is to be plotted. 
The tables take the following form: 
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XBASE HEX 00000000000000 
HEX 00010101010101 
HEX 02020202020202 
HEX 02030303030303 



HEX 26262626262626 
HEX 26272727272727 



XOFF HEX 00000101020203 
HEX 03040405050606 
HEX 00000101020203 
HEX 03040405050606 
ETC 



XOFF 
XBASE 



Oth 1st 2nd 3rd 4th 5th 6th 7th 
SHAPE SHAPE SHAPE SHAPE SHAPE SHAPE SHAPE SHAPE 



00 


00 


01 


01 


02 


02 


03 


03 


04 


04 


05 


05 


06 


06 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


01 


01 


01 


01 


01 


01 


02 


02 





1 


2 


3 


4 


5 


6 




8 


9 


A 


B 


C 


D 


E 


F 



Oth Horiz. Offset 1st Horiz. Offset 



X COORDINATE VALUE 



While the XOFF table is straight-forward in that two adjacent X positions 
reference the same shape in the table, the XBASE table, which references the 
horizontal byte offset, requires some explanation. You would assume that all 
shapes plotted in the first seven horizontal screen positions (X = to 6) would 
be plotted in the Oth, or even offset, and all shapes plotted in the second seven 
positions (X = 7 to 13) would be plotted in the first or odd offset. The problem 
occurs at the boundary of even-odd offset pairs. The third shape table is plotted 
for both X = 6 and X = 7. But, if the 3rd shape is plotted first in the Oth (even) 
offset for X = 6, then plotted in the 1st (odd) offset at X = 7, you would get a red 
shape in the first case, and a blue shape in the second case. The shape would 
also be shifted over one whole byte, because the shape at X =7, which is 
equivalent to that at X = 6 in the odd offset, would instead have an offset of 2; 
thus it would appear to be at the end of the byte instead of at the beginning. 
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Therefore, the shape at X = 7 must also be plotted in the Oth (even) offset. I'll 
be frank and say that the first time I encountered the problem, I spent some 
time looking for the error by stepping through my code. The solution was that 
the XBASE tables had to be modified to account for the inconsistency. 

The following example will make this clearer. To determine the proper offset 
and which shape to plot at X =2, you would calculate as follows: 
Look up the third position of XBASE for the offset 

or XBASE, 2 = $00 

Look up the third position of XOFF for the shape number 

or XOFF.2 = $01 

So plot the first shape in Oth offset. 
For X = 7 

Look up the eighth position of XBASE for the offset 

or XBASE, 7 = $00 
Look up the eighth position of XOFF for the shape number 

or XOFF, 7 = $03 
So plot third shape in Oth offset. 

This can be formalized into code as part of a setup routine prior to accessing 
our drawing routine. 



SETUP LDY XVALUE 

LDA XBASE, Y 

STA HORIZ 

LDX XOFF.Y 

LDA SHPLO, X 

STA SHPL 

LDA #>SHAPES 

STA SHPH 



GET BYTE OFFSET FROM TABLE 
STORE OFFSET 

TABLE TO FIND SHAPE NUMBER 

INDEX TO GET L0 BYTE OF SHAPE TABLE 

STORE LO BYTE IN ZERO PAGE 

GET HI BYTE OF SHAPE TABLE 

STORE HI BYTE IN ZERO PAGE 



SHPLO is a table seven bytes long that contains the lo order byte address of 
our shapes. Assuming that there are seven shapes, each containing 24 bytes, 
which are stored at $800 in a table called SHAPES, then the table takes the 
following form. The HEX pseudo-op in most assemblers informs the assembler 
to place hexadecimal data bytes beginning at the location SHPLO. It is 
equivalent to directly assigning storage space and filling in the values, as 
follows: 



126 



SHPLO HEX 00 18 30 48 60 78 90 



OTH 1ST 
SHAPE SHAPE ETC. 

The obvious intent of the previous method was to save shape table space. If a 
shape were three bytes wide by eight rows deep, seven tables would require 168 
bytes of storage. Requiring the use of all fourteen shapes would double that. 
While 336 bytes isn't much memory, ten shapes use nearly 3.5K and if any of 
these were to be rotating shapes, much of memory would be wasted with shape 
tables. v 

For those readers who would feel more comfortable calculating and using all 
fourteen shapes in their table, the code is the same but the tables differ slightly. 
The tables are more straight-forward because there are no boundary problems. 

XBASE HEX 00000000000000 
HEX 01010101010101 
HEX 02020202020202 



HEX 26262626262626 
HEX 27272727272727 



X0FF HEX 00010203040506 

HEX 0708090A0B0C0D 

HEX 00010203040506 

HEX 0708090A0B0C0D 



SHPLO HEX 00183048607890 
HEX A8C0D8F0082038 

In this case the shape table extends beyond a page boundary, so a table to 
reference the Hi byte as well must be included. 

SHPHI HEX 08080808080808 
HEX 08080808090909 

Replace the last two instructions for the hi byte in our setup routine with the 
following: 



LDA SHPHI.X ; INDEX TO GET HI BYTE OF SHAPE TABLE 
STA SHPH ; STORE HI BYTE IN ZERO PAGE 



There is an alternate way to avoid modifying the XBASE table. You could 
test for the combination of drawing the third shape while at an odd offset. 

At first it seemed plausible that using fourteen shape tables might be the 
better method if,say, the gun were in color and its bullets were in B&W. But 
since the gun shifted two dots per move, the bullet should do likewise. Besides, 
the same drawing routines could be accessed. 



THE SCREEN ERASE 



Erasing an entire Hi-Res screen quickly without the viewer being aware is 
very important in some games. One well known Asteroid game resorted to a 
partial (160 line) screen erase instead of XDRAWing the shapes. No one notic- 
ed because the frame rate was fast enough, and the animation was page- 
flipping between graphics screens. 

The process is simple and can be used for setting an entire screen to a 
background color. The Accumulator is loaded with a value (#$00 for black) and 
stored successively in all 8192 screen memory locations. If we had a sixteen-bit 
machine and could index all 8192 locations in one gigantic loop, things would 
be easy. But it has to be done in 256 byte blocks, or in what is called pages of 
memory. The flow chart is shown below. 

Remember that the instruction STA (HIRESL),Y uses a two byte address in 
zero page 

$26 = HIRESL = #$00 
$27 = HIRESH = #$20 

then increments it by Y. If Y = $07, then STA (HIRESL), Y stores what is 
in the Accumulator in location $2000 + $03 = $2003. 



HIRESL EQU 


$26 


HIRESH EQU 


HIRESL +$01 


CLRSCR LDA 


#$00 ; 


STA 


HIRESL ; 


LDA 


#$20 


STA 


HIRESH 


CLR1 LDY 


#$00 ; 


LDA 


#$00 ; 


CLR2 STA 


(HIRESL), Y; 


INY 





A $2000 (PAGE!) 



PAGE BEGINS AT 
LOAD ZERO TO ERASE TO BLACK 
STORE IN SCREEN MEMORY 
NEXT BYTE 
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BNE CLR2 

INC HIRESH 

LDA HIRESH 

CMP #$40 

BLT CLR1 
RTS 



DO ALL 256 BYTES; AT 256TH BYTE WRAPS 
BACK TO IN Y REGISTER, FALLS THROUGH 
DO NEXT PAGE 

FINISHED WITH SCREEN? 

NO, START NEXT 256 BYTE PAGE 

YES, ALL DONE 



STORE POINTERS TO HIRES 
SCREEN IN ZERO PAGE 
HIRESL = #$00 
HIRESH = #$20 



SET Y REGISTER = 



LOAD #$00 IN ACCUMULATOR 



STORE IN SCREEN MEMORY 
STA ( HIRESL ),Y 



INCREMENT Y REGISTER 



no 



DONE ALL 256 BYTES? 



yes 



DO NEXT PAGE BY 
INCREMENTING HIRESH 



no 



IS HIRESH = #$40? 



yes 



RETURN OR END 



This routine takes 35 milliseconds. Note: Screen #2 could be cleared just as 
easily by storing #$40 in HIRESH and comparing it to #$60 to test for the 
finish. 
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The screen can be cleared somewhat faster if inline code is used. This is 
sometimes desirable if part of a screen must be cleared quickly, but becomes a 
very long and tedious routine if every line is to be cleared. A zero is stored in 
each screen memory location indicated for a particular column or offset. When 
it is finished with that column, it increments to the next and clears that, also. 
Since the code contains the addresses for each line sequentially, precise control 
can be achieved over what portion of the screen is to be cleared. Of course, 
other colors can be used too. For instance: 



LDA #00 
LDY #$00 
LOOP STA $2000,Y 
STA $2400, Y 
STA $2800,Y 



; BLACK 

; START WITH 0TH COLUMN 
; ADDRESS OF 0TH LINE 
; ADDRESS OF 1ST LINE 
; ADDRESS OF 2ND LINE 



; Other lines 

INY 

CPY #$28 ; RIGHT SIDE SCREEN? 
BEQ END 

JMP LOOP ;NEXT COLUMN 
END RTS 



Sometimes it is desirable to set a Hi-Res screen to a particular color. But 
color has its inherent odd-even offset problems. For example, to set a screen to 
blue, a #$D5 would be stored in all even offset memory locations, while a #$AA 
would be required in all odd offset memory locations. Therefore, we have to 
load and store in pairs as we completely fill the screen memory with bytes that 
cause only the blue pixels to be activated. 

Fortunately, this routine only changes our clear screen routine slightly. You 
load a #$D5 for the even offset in the Accumulator, store it at the appropriate 
screen location referenced by HIRESL & HIRESH, then increment the index 
or pointer in the Y register. Then #$AA is loaded and stored for the odd offset 
in the next screen location. The Y register pointer is then incremented again. 
Because the BNE test only falls through when the Y register reaches (or 
actually 256), this can only happen on an even increment. Therefore, the test 
isn't needed after the first INY, as it can't happen when Y is an odd value. 



l 
2 
3 
4 

6000: A9 00 5 
6002: 85 26 6 
6004: A9 20 7 
6006: 85 27 8 



*CLEAR SCREEN COLOR TO BLUE 

ORG $6000 

HIRESL EQU $26 

HIRESH EQU HIRESL+$1 

CLRSCR LDA #$00 

STA HIRESL 

LDA #$20 

STA HIRESH 
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bUUo: 


AO 00 


9 


CLR1 


LDY 


#$00 


WUrt . 


aq 


1 A 
1U 


CLR2 


LDA 


#$D5 


600C: 


Q1 ?6 


1 1 

1 1 




STA 


(HIRESL) ,Y 


ouut,: 


no 
Co 


12 




INY 


ouur ; 


A9 AA 


13 




LDA 


#$AA 


601 1 > 




1 1. 




STA 


(HIRESL) ,Y 


601 V 








INY 


Anu. 
oum • 


nn p/. 






BNE 


CLR2 


601 6- 


pa on 
to z/ 


1 7 




INC 


HIRESH 


6018: 


A5 27 


18 




LDA 


HIRESH 


601 A • 


oq /.r\ 


19 




CMP 


#$40 


601C: 


90 EA 


20 




BCC 


CLR1 


f\Ci1 P ■ 

ouit,; 


01) 


21 




RTS 


— END 


ASSEMBLY- 











;BLUE (EVEN) 
;BLUE (ODD) 

;D0 NEXT PAGE 

; FINISHED WITH SCREEN 7 

; NO, START NEXT 256 BYTE PAGE 

;YES! DONE 



SELECTIVE DRAWING CONTROL & DRAWING MOVEMENT 

ADVANTAGES 

We have seen how background is preserved by EORing shapes on and then 
ofi the Hi-Res screen. However, there are times when this is not effective For 
instance, complex backgrounds make a mess of a shape, often making it 
unrecognizable. In these cases, it is best to draw the shape on the screen 
normally. Naturally, background is lost, but it can be redrawn from memory 

There is another function that is quite important in selective drawing con- 
trol. That is the And Memory with Accumulator (AND) instruction It is 
primarily used to filter or mask out certain bits in the Accumulator or, in the 
case of the Hi-Res screen, mask out certain pixels. Both the memory bit and 
the Accumulator bit must be set (on) for the result to be one. If either memory 
bit or Accumulator bit is off, or both bits are off, the result is zero. 

Example: 



Hi bit 

1 1 1 1 1 LDA #$D5 

1 1 1 1 AND #$F0 



1 1 1 RESULT #$D0 



ia/?! 16 C exam P le eff ectively stripped off the first four pixels of the byte 
Wh,le it is difficult to design a simple case for using the AND instruction in 
selective drawing, it is used for "making a hole" in a background before 
ORmg a colored shape into the hole. It is a tricky procedure for beginners 
because the complement of an equivalent white shape is used during the AND 
operation . 
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We have the following background and colored shape: 



1111000 1101111 BACKGROUND 
1010101 0100000 SHAPE 

First we need the complement of the white shape. 

1111111 1100000 WHITE SHAPE CONTAINS 

VIOLET & GREEN 
1111111 1111111 EOR #$FF 



0000000 0011111 

1111000 1101111 AND WITH BACKGROUND 



0000000 0001111 RESULTANT HOLE 

Now OR the shape into the hole. 

0000000 0001111 BACKGROUND HOLE 
1010101 0100000 ORA COLORED SHAPE INTO 

HOLE 



1010101 0101111 RESULTANT COLORED SHAPE 

& BACKGROUND 

Notice that the background doesn't interfere with the colored shape but 
surrounds it. 

The AND instruction is also quite useful in detecting collisions. The pro- 
cedure will be discussed in detail in the next chapter. 

The goal of any programmer is to write fast and efficient code. You can do 
this by taking advantage of the way the screen is mapped and manipulated in 
memory. Because it is faster to change a byte, or group of seven pixels rather 
than each of the pixels separately, it is easier to have separate shapes for each 
movement to the right or left within a byte. It is also easier to move a shape or 
object one byte, or seven pixels at a time, horizontally. 

Likewise, it is easier during horizontal movement to keep a shape within one 
of the 24 - eight row subgroups on the Hi-Res screen. If you adhere to that 
restriction, only the memory address of the first line of the shape need be 
accessed by tables. Each succeeding line is +$400 in memory at any given 
horizontal offset. This method saves many machine cycles by not accessing the 
GET ADR routine for each and every horizontal line in the shape. If your 
shape is three bytes wide by eight lines deep, the drawing algorithm only has to 
call the GET ADR routine once. Each successive byte in that offset or column is 
plotted at a location incremented by + $400 bytes in screen memory. After all 
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eight bytes have been plotted in that column, screen memory is decremented 
by $2000 bytes to return to the top of the subgroup in order to plot in the next 
column. It is a very fast method, one that many games, like Apple Invaders, 
uses. If you examine that game, the aliens move slowly across the screen, each 
character being eight lines deep. When they advance closer to landing, they 
jump a full eight lines, to be plotted within the next lower eight line subgroup. 
Although moving 40 aliens may appear slow in the game, there is a very long 
delay loop. Perhaps some readers have seen the modified version with the 
hyperspeed option. The game is quite capable of running ten times faster. 

The subroutine shown below has the following inputs which can be set in 
another subroutine called SETUP. 



X POSITION IN Y REGISTER 
BASE ADDR: HIRESL , HIRESH 
SHAPE ADDR: SHPL, SHPH 
LENGTH IN X DIRECTION: LNGH 



DRAW 


LDX 


#$00 


DRAW2 


LDA 


(SHPL.X) 




EOR 


(HIRESL) ,Y 




STA 


( HIRESL), Y 




LDA 


HIRESH ; 




CLC 






ADC 


#$04 ; 




STA 


HIRESH ; 




INC 


SHPL ; 




CMP 


#$40 ; 




BCC 


DRAW2 ; 




SBC 


#$20 ; 




STA 


HIRESH ; 




DEC 


LNGH ; 




BEQ 


DRAW3 ; 




INY 






BNE 


DRAW 2 ;' 


DRAW3 


RTS 





X-REG MUST BE 

GET BYTE FROM SHAPE TABLE 

EXCLUSIVE OR IT WITH WHAT IS ON SCREEN 

PUT IT ON HI-RES SCREEN 

WANT TO REACH NEXT LINE BY ADDING $400 

BY ADDING 4 TO HI BYTE OF BASE ADDR. 

ADD AFTER CLEARING CARRY 

SAVE IT 

NEXT BYTE OF SHAPE ADDR. 

ARE WE FINISHED WITH THAT COLUMN 

NO, DO NEXT BYTE 

YES, BACK TO BASE ADDR (OR TOP) 

SAVE IT 

NEXT COLUMN SO DECREMENT LENGTH 

ARE WE FINISHED 

DRAW AT NEXT X POSITION 

THIS BRANCH IS ALWAYS TAKEN 

DONE! 



Another way of keeping the code simple is to use only the first 256 horizontal 
screen positions. This simplifies horizontal paddle routines and eliminates the 
problem of multi-byte additions to reach screen positions between X = 256 and 
X = 279. A large number of games like GAMMA GOBLINS and ASTEROID 
FIELD have resorted to this technique. The 256 position field need not be left 
justified, but could be centered using a fixed left margin displacement. 
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INPUT: 

X POS. IN Y REGISTER 
BASE ADDR: HIRESL, HIRESH 
SHAPE ADDR: SHPL.SHPH 
LENGTH IN X DIR: LNGH 







■ GET BYTE FROM SHAPE TABLE 
H LDA (SHPL.X) 






EOR WITH SCREEN MEMORY 
STA (HIRESL) ,Y 



HIRESH = HIRESH + $04 



POINTER TO NEXT BYTE 
OF SHAPE TABLE 
SHPL = SHPL + 1 



no 



IS HIRESH < #$40? 



yes 



HIRESH = HIRESH - $20 



LNGH = LNGH - 1 



INY 
NEXT SCREEN 
POSITION 



no 



IS LNGH = 0? 



yes 



DONE 



Map of elements in 
shape table as they 
appear on the screen 






8 


[ 1— 1 


9 


2 


10 


3 












7 


15 



INTERFACING THE DRAWING ROUTINES TO AN APPLESOFT 

PROGRAM 



Bit-mapped shape tables, as we have seen, are much more detailed and more 
colorful than APPLE shape tables. There are many programmers not writing a 
high speed animated game who would like to use these shape drawing routines 
in an Applesoft program. 

If you wanted to control the vertical movement of our space ship by paddle 
control from an Applesoft program, it can be accomplished in the following 
manner: 

The machine language drawing routine and the setup routine require only 
the inputs of where to start drawing the ship on the screen. The ship's horizon- 
tal location is called HORIZ in the machine language subroutine. The ship can 
be positioned horizontally from the far left (0) to nearly the right hand side of 
the screen (37). At 37, the ship's nose touches the right screen boundary. 
Larger values would produce a very strange wrap-a-round, especially at 38 and 
39. HORIZ is located at $6001 or 24577 decimal. A value has only to be poked 
in at this location to change the ship's horizontal location. The ship's vertical 
position is set by TVERT. Its value is trimmed to 0-183 to prevent vertical 
wrap-a-round. It is located at $6000 or 24576 decimal. TVERT can be directly 
driven by a paddle routine in the Applesoft program. 



HORIZ 



TVERT 




The machine language subroutine with code, lookup and shape tables is only 
502 bytes long. It starts a $6006 or 24582 decimal. It sets up the drawing 
routine before calling it. The drawing routine EOR's the ship's shape to the 
screen, one byte at a time. 

This routine is quite versatile and could handle multiple shapes from 
Applesoft with little modification to the code. The variables for each shape in 
the setup routine; lo and hi bytes of the shape, as well as its depth and length, 
would have to be poked in from Applesoft. The JSR to SSETUP would be 
removed and the new shapes would be added to the end or in a table elsewhere 
in memory, in a location where it wouldn't be overwritten by your Applesoft 
program . 



135 



You must be careful with zero page pointers when interfacing BASIC pro- 
grams to machine language programs. Although I've been lax in choosing loca- 
tions $52 through $58, these conflict with both BASICS. There is a chart in the 
Apple II Reference manual which shows which zero page locations are free. 
Safe locations for either BASIC are $6 to $9 , $1A to $1F , $EB to $EF, and 
$F9 to $FF. There are others, but I would consult the manual. 

Our small Applesoft interface routine is listed below and the machine 
language code follows. 



10 HGR: POKE- 16302,0 

15 H=10 : POKE 24577, H 

20 TVERT = PDL(l) : IF TVERT >183 

THEN TVERT = 183 
25 POKE 24576, TVERT 
30 CALL 24582 

40 FOR DE = 1 TO 5: NEXT DE 
45 POKE 24576, TVERT 
50 CALL 24582 
60 GOTO 20 



SET GRAPHICS 
SET HORIZONTAL POSITION 
SET VERTICAL POSITION 
WITH PADDLE 

CALL DRAWING ROUTINE 
SHORT DELAY 

REFRESH VERTICAL POSITION 
XDRAW SHIP 
LOOP AGAIN 











1 


♦CODE FOR APPLESOFT PADD 










2 




ORG 


$6000 










3 


TVERT 


DS 












4 


H0RIZ 


DS 












5 


DEPTH 


DS 












6 


LNGH 


DS 












7 


SLNGH 


DS 












8 


TEMP 


DS 












9 


HIRESL 


EQU 


$1A 










10 


HIRESH 


EQU 


HIRESL+$1 










11 


SSHPL 


EQU 


$1C 










12 


SSHPH 


EQU 


SSHPL+$1 










13 


*MAIN CODE 




6006: 


20 


A3 


60 


14 


START 


JSR 


SSETUP 


6009: 


20 


0D 


60 


15 




JSR 


SXDRAW 


600C: 


60 






16 




RTS 










17 


♦SUBROUTINES 




600D: 








18 


♦SHIP DRAWING 


SUBROUTINE 


AC 


00 


60 


19 


SXDRAW 


LDY 


TVERT 


6010: 


20 


2C 


60 


20 




JSR 


GETADR 


6013: 


A2 


00 




21 




LDX 


#$00 


6015: 


Al 


1C 




22 


SXDRAW2 


LDA 


( SSHPL, X) 


6017: 


51 


1A 




23 




EOR 


(HIRESL), Y 


6019: 


91 


1A 




24 




STA 


(HIRESL), Y 


601B: 


E6 


1C 




25 




INC 


SSHPL 


601D: 


C8 






26 




INY 




601E: 


CE 


04 


60 


27 




DEC 


SLNGH 


6021: 


DO 


F2 




28 




BNE 


SXDRAW2 


6023: 


EE 


00 


60 


29 




INC 


TVERT 


6026: 


CE 


02 


60 


30 




DEC 


DEPTH 


6029: 


DO 


E2 




31 




BNE 


SXDRAW 


602B: 


60 






32 




RTS 





; PADDLE VALUE 

;NEED IN X REG. FOR INDEX 
;L0AD BYTE FROM SHAPE TABLE 
;E0R IT AGAINST SCREEN 
; STORE RESULT ON SCREEN 
;NEXT BYTE IN SHAPE TABLE 
;NEXT SCREEN POSITION IN ROW 
DECREMENT WIDTH 
; FINISHED WITH ROW? 
;IF SO, INCREMENT TO NEXT LINE 
; DECREMENT ROW 
; FINISHED ALL ROWS? 
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Ancn. 
duju; 


An 
OU 
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80 


80 


on 
OU 




AnAO • 
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OUor.: 


00 


00 


00 




AA71 • 
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59 


AA7A ■ 

ou/o: 


80 


80 


80 




AA7Q« 

ou/y ; 


80 


80 


80 




ou /C: 


80 


80 




60 


ou/L: 


00 


00 


00 




oUol : 


00 


00 


00 




ADO/. . 


00 


00 




61 


AAQA . 

DUoo; 


80 


80 


80 




ouoy ; 


80 


80 


80 




OUC5L/; 


80 


80 




62 


ouoe,: 


00 


00 


nn 
UU 




Ann 1 a 

ouy i : 


00 


00 


00 




AAA/. . 

DUV4 : 


00 


00 




63 


ouyo: 


80 


80 


80 




ouyy : 


80 


80 


80 




AAA/* 1 . 

ouyc: 


80 


80 




64 


609E: 


28 


28 


28 




AAA 1 . 

oUAl : 


28 


28 


28 




AAA/. . 


28 


28 




65 


AAA A . 

ouao: 


A8 


A8 


A8 




A A A A - 

ol)Ay: 


A8 


A8 


A8 




60AC: 


A8 


A8 




66 


60AE: 


28 


28 


28 




oudi ; 


28 


28 


28 




60B4: 


28 


28 




67 


60B6: 


A8 


A8 


A8 




60B9: 


A8 


A8 


A8 




60BC: 


A8 


A8 




68 



*GETADR SUBROUTINE 



HFTAHP I T1A 


YVT7DTT V 
I VEiKlL , I 




ATV 


UADT7 




HTPT7QI 


LDA 


V\7PDTIJ V 

i VbKln, I 


QTA 
D 1 A 


UTD17CU 


t riA 


itinr 


QTA 
o 1 A 


oLlNbn 




ff $UU 


PTQ 




#QHTP QFT ITP 


QITPDAIITTMC 

bUDKUUl INh 


ooCiUr LUA 


# /CUTD . 


QTA 
Dl A 


CCUDT 


LUA 


JI\CUTD 

ff>bHIF 


a 1 A 


CCUDU 


LDA 


#$08 


OTA 

blA 


Dbr IH 


LDA 


#$09 


STA 


H0RIZ 


LDA 


#$03 


STA 


SLNGH 


STA 


TEMP 


RTS 





;L00K UP L0 BYTE OF LINE 
;ADD DISPLACEMENT INTO LINE 
;L00K UP HI BYTE OF LINE 

; RESTORE VARIABLE 

;0CATI0N OF SHIP SHAPE TABLE 

; DEPTH 8 LINES 

; STARTING H0RIZ POSITION 

;SHIP 3 BYTES WIDE 



YVERTL HEX 0000000000000000 



HEX 8080808080808080 



HEX 0000000000000000 



HEX 8080808080808080 



HEX 0000000000000000 



HEX 8080808080808080 



HEX 0000000000000000 



HEX 8080808080808080 



HEX 2828282828282828 



HEX A8A8A8A8A8A8A8A8 



HEX 2828282828282828 



HEX A8A8A8A8A8A8A8A8 



60BE: 


28 


28 


28 




60C1: 


28 


28 


28 




60C4: 


28 


28 




69 


60C6: 


A8 


A8 


A8 




60C9: 


A8 


A8 


A8 




60CC: 


A8 


A8 




70 


60CE: 


28 


28 


28 




60D1: 


28 


28 


28 




60D4: 


28 


28 




71 


60D6: 


A8 


A8 


A8 




60D9: 


A8 


A8 


A8 




60DC: 


A8 


A8 




72 


60DE: 


50 


50 


50 




60E1: 


50 


50 


50 




60E4: 


50 


50 




73 


60E6: 


DO 


DO 


DO 




60E9: 


DO 


DO 


DO 




60C: ] 


DO DO 


74 


60EE: 


50 


50 


50 




60F1 : 


50 


50 


50 




60F4: 


50 


50 




75 


60F6: 


DO 


DO 


DO 




60F9: 


DO 


DO 


DO 




60FC: 


DO 


DO 




76 


60FE: 


50 


50 


50 




6101: 


50 


50 


50 




6104: 


50 


50 




77 


6106: 


DO 


DO 


DO 




6109: 


DO 


DO 


DO 




610C: 


DO 


DO 




78 


610E: 


50 


50 


50 




6111: 


50 


50 


50 




6114: 


50 


50 




79 


6116: 


DO 


DO 


DO 




6119: 


DO DO 


DO 




611C: 


DO 


DO 




80 
81 


611E: 


20 


24 


28 




6121: 


2C 


30 


34 




6124: 


38 


3C 




82 


6126: 


20 


24 


28 




6129: 


2C 


30 


34 




612C: 


38 


3C 




83 


612E: 


21 


25 


29 




6131: 


2D 


31 


35 




6134: 


39 


3D 




84 


6136: 


21 


25 


29 




6139: 


2D 


31 


35 




613C: 


39 


3D 




85 


613E: 


22 


26 


2A 




6141: 


2E 


32 


36 




6144: 


3A 


3E 




86 


6146: 


22 


26 


2A 




6149: 


2E 


32 


36 




614C: 


3A 


3E 




87 


614E: 


23 


27 


2B 




6151: 


2F 


33 


37 




6154: 


3B 


3F 




88 


6156: 


23 


27 


2B 




6159: 


2F 


33 


37 





HEX 2828282828282828 

HEX A8A8A8A8A8A8A8A8 

HEX 2828282828282828 

HEX A8A8A8A8A8A8A8A8 

HEX 5050505050505050 

HEX DODODODODODODODO 

HEX 5050505050505050 

HEX DODODODODODODODO 

HEX 5050505050505050 

HEX DODODODODODODODO 

HEX 5050505050505050 

HEX DODODODODODODODO 

* 

YVERTH HEX 2024282C3034383C 

HEX 2024282C3034383C 

HEX 2125292D3135393D 

HEX 2125292D3135393D 

HEX 22262A2E32363A3E 

HEX 22262A2E32363A3E 

HEX 23272B2F33373B3F 



615C: 

61 5E: 

6161: 

6164: 

6166: 

6169: 

616C: 

616E: 

6171: 

6174: 

6176: 

6179: 

617C: 

617E: 

6181: 

6184: 

6186: 

6189: 

618C: 

618E: 

6191: 

6194: 

6196: 

6199: 

619C: 

619E: 

61A1: 

61A4: 

61A6: 

61A9: 

61AC: 

61AE: 

61B1: 

61B4: 

61B6: 

61B9: 

61BC: 

61BE: 

61C1: 

61C4: 

61C6: 

61C9: 

6 ICC: 

61CE: 

61D1: 

61D4: 

61D6: 

61D9: 

61DC: 

61DE: 

61E1: 

61E4: 

61E6: 

61E9: 

61EC: 

61EE: 

61F1: 

61F4: 



3B 3F 
20 24 
2C 30 
38 3C 

20 24 
2C 30 

38 3C 

21 25 
2D 31 

39 3D 

21 25 
2D 31 
39 3D 

22 26 
2E 32 
3A 3E 

22 26 
2E 32 
3A 3E 

23 27 
2F 33 
3B 3F 
23 27 
2F 33 
3B 3F 
20 24 
2C 30 
38 3C 

20 24 
2C 30 

38 3C 

21 25 
2D 31 

39 3D 

21 25 
2D 31 
39 3D 

22 26 
2E 32 
3A 3E 

22 26 
2E 32 
3A 3E 

23 27 
2F 33 
3B 3F 
-23 27 
2F 33 
3B 3F 
80 00 
82 00 
82 00 
00 8A 
00 AA 
80 AA 
95 82 
D5 8A 
D5 AA 



89 HEX 23272B2F33373B3F 



28 
34 

28 
34 

29 
35 

29 
35 

2A 
36 

2A 
36 

2B 
37 

2B 
37 

28 
34 

28 
34 

29 
35 

29 
35 

2A 
36 

2A 
36 

2B 
37 

2B 
37 

00 
00 

00 
D5 

AA 
A8 



90 HEX 2024282C3034383C 



91 HEX 2024282C3034383C 



92 HEX 2125292D3135393D 



93 HEX 2125292D3135393D 



94 HEX 22262A2E32363A3E 



95 HEX 22262A2E32363A3E 



96 HEX 23272B2F33373B3F 



97 HEX 23272B2F33373B3F 



98 HEX 2024282C3034383 



99 HEX 2024282C3034383C 



100 HEX 2125292D3135393D 



101 HEX 2125292D3135393D 



102 HEX 22262A2E32363A3E 



103 HEX 22262A2E32363A3E 



104 HEX 23272B2F33373B3F 



105 HEX 23272B2F33373B3F 



106 SHIP HEX 8000008200008200 



107 HEX 008A0000AAD580AA 



108 HEX 9582AAD58AA8D5AA 



—END ASSEMBLY— 502 BYTES 



139 



When raster or block shapes are plotted against a complex background by 
EORing them to the screen, the shape is often difficult to discern. As we men- 
tioned in our discussion of the OR function, if a shape is ORed to the screen 
instead, the shape would be intact. However, this isn't entirely true. The 
background will affect the shape if either the shape has a window in it, or if true 
color is always to be preserved. If we had a red locomotive with a black window 
in the cab and we ORed it against a blue background, the window would not 
remain black, but would become blue. The color of the train is likely to shift to 
white because pixels in both the even and odd columns will be activated A 
more effective solution would be to AND the complement of a white locomotive 
shape with the background and then OR the red locomotive to the screen. (See 
similar example, page 132. 

Background can be saved when ORing a shape to the screen by saving the 
bytes to a scratch table just before plotting our shape. This is done a byte at a 
time in sequence with the shape plotting operation rather than as a seperate 
subroutine. Then, when the shape is to be removed from the screen, it isn't 
XDRAWn; instead, the original background is replotted from this scratch 
table. I modified the last example to perform this technique and set the 
background to a color in the Applesoft program so that you could observe the 
effect. It might be more interesting to load a Hi-Res picture as a very busy 
background. The code and flow chart are shown below. 



READ PADDLE 
FROM APPLESOFT 



SHIP DRAWING 
SETUP ROUTINE 



DRAW SHIP WHILE 
SAVING BACKGROUND 



DELAY 



SHIP 


DRAWING 


SETUP 


ROUTINE 



RESTORE BACKGROUND 
FROM DUMMY TABLE 



PUT TVERT IN Y REGISTER 



JSR TO GET ADR 
RETURN WITH HIRESH.HIRESL 



GET BACKGROUND BYTE 
FROM SCREEN 



STORE IN SCRATCH TABLE 
CALLED BACKGND 



LOAD BYTE FROM SHIP'S 
SHAPE TABLE 



OR IT WITH HIRES SCREEN 



STORE BYTE ON SCREEN 



INCREMENT LO BYTE 
POINTERS BACKL & SSHPL 
FOR NEXT BYTE 



INY FOR NEXT SCREEN 
POSITION 



SLNGH = SLNGH - 1 



IS SLNGH = 0? 



yes 



TVERT = TVERT + 1 



DEPTH = DEPTH - 1 



no , 



j IS DEPTH = 0? | 





yes 




DONE! 





10 HGR : POKE - 16302,0 

12 HCOLOR= 1 

13 HPLOT 100,100: CALL 6245A 
15 H = 10: POKE 24577, H 

20 TVERT = PDL (1): IF TVERT > 183 THEN TVERT = 183 
25 POKE 24576, TVERT 
30 CALL 24582 

40 FOR DE = 1 TO 5: NEXT DE 
45 POKE 24576, TVERT 
50 CALL 24589 
60 GOTO 20 











1 


*C0DE FOR APPLESOFT PADDLE INTERFACE 










2 


♦WHILE 


SAVING 


BACKGROUND 












3 




ORG 


$6000 












4 


TVERT 


DS 














5 


HORIZ 


DS 














6 


DEPTH 


DS 














7 


LNGH 


DS 














8 


SLNGH 


DS 


1 












9 


TEMP 


DS 














10 


HIRESL 


EQU 


1 1 A 












11 


HIRESH 


EQU 


UTppQl ,( i 












12 


SSHPL 


EQU 














13 


SSHPH 


EQU 


ccupT i * 1 
jonrLt$ 1 












14 


BACKL 


EQU 


tic 

■pit, 












15 


BACKH 


EQU 


BACKL+$ 1 












16 


*MAIN CODE 






6006: 


20 


6D 


60 


17 


START 


JSR 


SSETUP 




6009: 


20 


14 


60 


18 




JSR 


SDRAW 


;DRAW SHIP WHILE SAVING BACKGROUND 


600C: 


60 






19 




RTS 




600D: 


20 


6D 


60 


20 




JSR 


SSETUP 




6010: 


20 


39 


60 


21 




JSR 


BKDRAW 


; REPLACE BACKGROUND 


6013: 


60 






22 




RTS 












23 


•SUBROUTINES 






6014: 


AC 


00 


60 


24 


SDRAW 


LDY 


TVERT 


; PADDLE VALUE 


6017: 


20 


56 


60 


25 




JSR 


GET ADR 


601A: 


A2 


00 




26 




LDX 


#$00 


NEED IN X REG. FOR INDEX 


601C: 


Bl 


1A 




27 


SDRAW2 


LDA 


(HIRESL), Y 


LOAD BYTE ON SCREEN 


601E: 


81 


IE 




28 




STA 


( BACKL, X) 


STORE BACKGROUND TABLE 


6020: 


Al 


1C 




29 




LDA 


(SSHPL, X) 


LOAD BYTE FROM SHIP SHAPE TABLE 


6022: 


11 


1A 




30 




ORA 


(HIRESL) ,Y 


;ORA WITH SCREEN 


6024: 


91 


1A 




31 




STA 


(HIRESL), Y 


STOR RESULT ON SCREEN 


6026: 


E6 


IE 




32 




INC 


BACKL 


NEXT BYTE IN BACKGROUND TABLE 


6028: 


E6 


1C 




33 




INC 


SSHPL 


NEXT BYTE IN SHIP TABLE 


602 A: 


C8 






34 




INY 




NEXT SCREEN POS. IN ROW 


602B: 


CE 


04 


60 


35 




DEC 


SLNGH 


DECREMENT WIDTH 


602E: 


DO 


EC 




36 




BNE 


SDRAW2 


FINISHED WITH ROW? 


6030: 


EE 


00 


60 


37 




INC 


TVERT 


IF SO, INCREMENT TO NEXT LINE 


6033: 


CE 


02 


60 


38 




DEC 


DEPTH 


DECREMENT DEPTH 


6036: 


DO 


DC 




39 




BNE 


SDRAW 


FINISHED ALL ROWS? 


6038: 


60 






40 




RTS 




YES, END ROUTINE 



6039: 


AC 00 


60 41 


603C: 


20 56 60 42 


603F: 


A2 00 


43 


6041: 


Al IE 


44 


6043: 


91 1A 


A5 


6045: 


E6 IE 


46 


6047: 


C8 


47 


6048: 


CE 04 


60 48 


604B: 


DO F4 


49 


604D: 


EE 00 


60 50 


6050: 


CE 02 


60 51 


6053: 


DO E4 


52 


6055: 


60 


53 


6056: 


B9 90 


60 54 


6059: 


18 


55 


605A: 


6D 01 


60 56 


605D: 


85 1A 


57 


605F: 


B9 50 


61 58 


6062: 


85 IB 


59 


6064: 


AD 05 


60 60 


6067: 


8D 04 


60 61 


606A: 


AO 00 


62 


606C: 


60 


63 






64 


606D: 


A9 10 


65 


606F: 


85 1C 


66 


6071: 


A9 62 


67 


6073: 


85 ID 


68 


6075: 


A9 28 


69 


6077: 


85 IE 


70 


6079: 


A9 62 


71 


607B: 


85 IF 


72 


607D: 


A9 08 


73 


607F: 


8D 02 


60 74 


6082: 


A9 09 


75 


6084: 


8D 01 


60 76 


6087: 


A9 03 


77 


6089: 


8D 04 


60 78 


608C: 


8D 05 


60 79 


608F: 


60 


80 


6090: 


00 00 


00 


6093: 


00 00 


00 


6096: 


00 00 


81 


6098: 


80 80 


80 


609B: 


80 80 


80 


609E: 


80 80 


82 


60A0: 


00 00 


00 


60A3: 


00 00 


00 


60A6: 


00 00 


83 


60A8: 


80 80 


80 


60AB: 


80 80 


80 


60AE: 


80 80 


84 


60B0: 


00 00 


00 


60B3: 


00 00 


00 


60B6: 


00 00 


85 


60B8: 


80 80 


80 


60BB: 


80 80 


80 


60BE: 


80 80 


86 


60C0: 


00 00 


00 


60C3: 


00 00 


00 



BKDRAW 


LDY 


TVERT 


; PADDLE VALUE 




JSR 


GETADR 






LDX 


#$00 




BKDRAW2 


LDA 


(BACKL, X) 


;LOAD BYTE FROM BACKGROUND TABLE 




STA 


(HIRESL) ,Y 


; STORE ON HIRES SCREEN 




INC 


BACKL 


;NEXT BYTE IN TABLE 




INY 




;NEXT SCREEN POSITION IN ROW 




DEC 


SLNGH 






BNE 


BKDRAW2 






INC 


TVERT 






DEC 


DEPTH 






BNE 


BKDRAW 






RTS 






GETADR 


LDA 


YVERTL.Y 


;LOOK UP LO BYTE OF LINE 




CLC 








ADC 


HORIZ 


; ADD DISPLACEMENT INTO LINE 




STA 


HIRESL 






LDA 


YVERTH, Y 


;LOOK UP HI BYTE OF LINE 




STA 


HIRESH 






LDA 


TEMP 






STA 


SLNGH 


; RESTORE VARIABLE 




LDY 


#$00 






RTS 






*SHIP SET UP 






SSETUP 


LDA 


#<SHIP 


; LOCATION OF SHIP SHAPE TABLE 




STA 


SSHPL 






LDA 


#>SHIP 






STA 


SSHPH 






LDA 


#<BACKGRD 


; LOCATION OF BACKGROUND TABLE 




STA 


BACKL 






LDA 


#>BACKGRD 






STA 


BACKH 






LDA 


#$08 


; DEPTH OF SHAPE 




STA 


DEPTH 






LDA 


#$09 


; STARTING HORIZ. POSITION 




STA 


HORIZ 






LDA 


#$03 


;SHIP 3 BYTES WIDE 




STA 


SLNGH 






STA 


TEMP 






RTS 







YVERTL HEX 0000000000000000 



HEX 8080808080808080 



HEX 0000000000000000 



HEX 8080808080808080 



HEX 0000000000000000 



HEX 8080808080808080 



60C6: 00 00 87 
60C8: 80 80 80 
60CB: 80 80 80 
60CE: 80 80 88 
60D0: 28 28 28 
60D3: 28 28 28 
60D6: 28 28 89 
60D8: A8 A8 A8 
60DB: A8 A8 A8 
60DE: A8 A8 90 
60E0: 28 28 28 
60E3: 28 28 28 
60E6: 28 28 91 
60E8: A8 A8 A8 
60EB: A8 A8 A8 
60EE: A8 A8 92 
60F0: 28 28 28 
60F3: 28 28 28 
60F6: 28 28 93 
60F8: A8 A*8 A8 
60FB: A8 A8 A8 
60FE: A8 A8 94 
6100: 28 28 28 
6103: 28 28 28 
6106: 28 28 95 
6108: A8 A8 A8 
610B: A8 A8 A8 
610E: A8 A8 96 
6110: 50 50 50 
6113: 50 50 50 
6116: 50 50 97 
6118: DO DO DO 
611B: DO DO DO 
611E: DO DO 98 
6120: 50 50 50 
6123: 50 50 50 
6126: 50 50 99 
6128: DO DO DO 
612B: DO DO DO 
612E: DO DO 100 
6130: 50 50 50 
6133: 50 50 50 
6136: 50 50 101 
6138: DO DO DO 
613B: DO DO DO 
613E: DO DO 102 
6140: 50 50 50 
6143: 50 50 50 
6146: 50 50 103 
6148: DO DO DO 
614B: DO DO DO 
614E: DO DO 104 
105 

6150: 20 24 28 
6153: 2C 30 34 
6156: 38 3C 106 
6158: 20 24 28 
615B: 2C 30 34 
615E: 38 3C 107 
6160: 21 25 29 



HEX 0000000000000000 

HEX 8080808080808080 

HEX 2828282828282828 

HEX A8A8A8A8A8A8A8A8 

HEX 2828282828282828 

HEX A8A8A8A8A8A8A8A8 

HEX 2828282828282828 

HEX A8A8A8A8A8A8A8A8 

HEX 2828282828282828 

HEX A8A8A8A8A8A8A8A8 

HEX 5050505050505050 

HEX DODODODODODODODO 

HEX 5050505050505050 

HEX DODODODODODODODO 

HEX 5050505050505050 

HEX DODODODODODODODO 

HEX 5050505050505050 

HEX DODODODODODODODO 

YVERTH HEX 2024282C3034383C 

HEX 2024282C3034383C 



6163: 

6166: 

6168: 

616B: 

616E: 

6170: 

6173: 

6176: 

6178: 

617B: 

617E: 

6180: 

6183: 

6186: 

6188: 

618B: 

618E: 

6190: 

6193: 

6196: 

6198: 

619B: 

619E: 

61A0: 

61A3: 

61A6: 

61A8: 

61AB: 

61AE: 

61B0: 

61B3: 

61B6: 

61B8: 

61BB: 

61BE: 

61C0: 

61C3: 

61C6: 

61C8: 

61CB: 

61CE: 

61D0: 

61D3: 

61D6: 

61D8: 

61DB: 

61DE: 

61E0: 

61E3: 

61E6: 

61E8: 

61EB: 

61EE: 

61F0: 

61F3 

61F6 

61F8 

61FB 

61FE 

6200 



2D 31 35 
39 3D 

21 25 29 
2D 31 35 
39 3D 

22 26 2A 
2E 32 36 
3A 3E 

22 26 2A 
2E 32 36 
3A 3E 

23 27 2B 
2F 33 37 
3B 3F 
23 27 2B 
2F 33 37 
3B 3F 
20 24 28 
2C 30 34 
38 3C 

20 24 28 
2C 30 34 

38 3C 

21 25 29 
2D 31 35 

39 3D 

21 25 29 
2D 31 35 
39 3D 

22 26 2A 
2E 32 36 
3A 3E 

22 26 2A 
2E 32 36 
3A 3E 

23 27 2B 
2F 33 37 
3B 3F 

23 27 2B 
2F 33 37 
3B 3F 
20 24 28 
2C 30 34 
38 3C 

20 24 28 
2C 30 34 

38 3C 

21 25 29 
2D 31 35 

39 3D 

21 25 29 
: 2D 31 35 
: 39 3D 
: 22 26 2A 
: 2E 32 36 
: 3A 3E 
: 22 26 2A 
: 2E 32 36 
: 3A 3E 
: 23 27 



108 



109 



110 



111 



112 



113 



114 



115 



116 



117 



118 



119 



120 



121 



122 



123 



124 



125 



126 



127 



HEX 2125292D3135393D 



HEX 2125292D3135393D 



HEX 22262A2E32363A3E 



HEX 22262A2E32363A3E 



HEX 23272B2F33373B3F 



HEX 23272B2F33373B3F 



HEX 2024282C3034383C 



HEX 2024282C3034383C 



HEX 2125292D3135393D 



HEX 2125292D3135393D 



HEX 22262A2E32363A3E 



HEX 22262A2E32363A3E 



HEX 23272B2F33373B3F 



HEX 23272B2F33373B3F 



HEX 2024282C3034383C 



HEX 2024282C3034383C 



HEX 2125292D3135393D 



HEX 2125292D3135393D 



HEX 22262A2E32363A3E 



HEX 22262A2E32363A3E 



2B 



6203: 2F 33 37 

Si § 27 2B HEX 23272B2F3337 3B3F 

620B: 2F 33 37 

62?0 E : : S 3 F 00 
6213: 82 00 00 

a 2 !« : 130 SHIP HEX 8000008200008200 

o^io: uu 8A 00 

621B: 00 A D5 

622o! 95 82 AA " EX 008AOO °OAAD580AA 

6223: D5 8A A8 

6226: D5 AA 132 HEX 9582AAD58AA8D5A/ 

133 BACKGRD DS 24 



—END ASSEMBLY- 
ERRORS: 
576 BYTES 



CHAPTER 6 

ARCADE GRAPHICS 



INTRODUCTION 

Arcade game animation uses many of the graphics techniques introduced in 
the previous chapter. Their requirement for high frame rates, coupled with 
smooth yet detailed animation, necessitates raster shape tables using their 
inherent high speed drawing routines. Yet, to produce quality games requires 
game designers to pay particular attention to the smallest programming 
details. 

The fundamentals of any arcade game, in the broad sense, are easy to grasp. 
It is the details that elude the average programmer. While it is obvious that any 
object that can be moved must also be controlled, it isn't obvious how that 
motion is programmed in machine language. 

This chapter and the next will discuss the three major types of arcade games 
and the algorithms that make them work. First, there is the Invaders-type 
game, wherein a movable gun in the horizontal plane defends against attackers 
from above. Second, there is the fully maneuverable spaceship from the Space 
War and Asteroid-type games. These ships fly or float freely in both the X and 
Y axis. Finally, there are the games that simulate horizontal or vertical motion 
by scrolling the background. These games have ships that are usually 
maneuverable in the non -scrolling axis only. Apple games like Pegasus II and 
Phantoms Five fall into this category. 

There are numerous details to consider in game design, such as paddle con- 
trol, bullets firing and bombs dropping. A game must also include a scorekeep- 
ing device for determining a winner, and an explosion subroutine for ridding 
the screen of losers. And, sometimes, page-flipping techniques are needed to 
smooth the flickering effects of complex animation. It is hoped that by my first 
flow charting these routines, then presenting and explaining commented 
machine language subroutines, you will be able to use these techniques in your 
own games. And for those who need an example of a working game, many of 
these routines are combined in a functioning yet unfinished arcade game. 

PADDLE ROUTINE 

We previously controlled our moveable plane through an Applesoft inter- 
face. While it is easy to access the paddle routine directly from machine 
language, a more realistic subroutine that would prevent almost instantaneous 
jumps in position needs to be developed. It is the purpose of this section to 
develop a useable paddle subroutine. 
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The Hi-Res screen's vertical axis ranges only from 0-191. Paddle values on 
the other hand, range from 0-255. An attempt to plot a shape on any horizontal 
v4 e D T d,ng 191 WOuld reSult in un Predictable consequences, because the 
YVERT tables for the screen address of any line contains only 192 values 
Your program might store the shape anywhere in memory, depending on what 
values might be stored in the locations following our YVERT tables 
Therefore, the maximum paddle value can be 191 minus the shape's depth In 

\ o e o CaSe ^° Ur Ship ' Which is eight lines dee P' y° u must cli P th e paddle value to 
loo or $B7. 



T 



Max VERT =183 



8 Units 




Bottom Screen = 191 $BF 



A paddle value is read by accessing a monitor subroutine called PREAD, 
located at $FB1E. The monitor reads the paddles by writing a strobe to start 
the selected paddle timer, then increments the Y register until the timer goes 
off. The paddle value is returned in the Y register. You access PREAD by plac- 
ing the selected paddle number (0-3) in the X-register. You should be aware 
that what was previously stored in the Accumulator is destroyed when calline 
PREAD. 5 

The following paddle subroutine prevents instantaneous jumps of the 
plane's position by rapid paddle movement. It accomplishes this by adjusting 
VERT, the ship's vertical position, rather than storing the paddle position 
(PDL) directly as VERT. This adjustment is based on the relationship of PDL 
to VERT. ^ 

There is a certain maximum paddle-driven movement that is desirable in 
any game. If the movement, in this case, is set to ten units per frame and the 
animation was twenty frames per second, then the plane will require approx- 
imately one second to move from top to bottom. Slower movement factors will 
take more time. The speed constant is subjective, and is determined by what 
you think is a suitable and a controllable speed. 

VERT is initialized at 90 decimal to position the ship initially at the center of 
the screen. If the paddle value is less than VERT, it subtracts ten from VERT 
and, if greater, adds ten. There are other safeguards to make sure VERT is 
greater than zero and less than the maximum paddle value, 183 decimal. 

There is another test to make sure that VERT actually homes in on the PDL 
value. Let us assume that VERT was at 70 and the paddle (PDL) is set to 63. 
Since PDL is less than VERT, ten is subtracted from VERT. VERT is now 
60, which is beyond, or less than PDL. But if VERT is less than PDL it sets 
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VERT = PDL so that the resulting VERT position is exactly that of the 
paddle value. The same type of test is performed if PDL is greater than VERT, 
and VERT is homing in on the paddle value from a higher value. 



CYCLE PDL VERT CYCLE PDL VERT 

90 90 

1 63 80 OR 1 112 100 

2 63 70 2 112 100 

3 63 63 3 112 112 

The flow chart is shown below. 



READ PADDLE 
I 



CLIP VALUE 
0-183 ($B7) 



IF PADDLE<VERT 



no 



yes 



VERT = VERT -10 



yes 



paddle3 



IF PADDLE = VERT 



yes 



IF VERT<0 



VERT=0 



no 



no 



no 



no 



IF VERT<PADDLE 



yes 



VERT = PADDLE 



VERT = VERT + 10 



IF VERT => PADDLE 



yes 



VERT = PADDLE 



Rather than proceed with the development of what is to become a very com- 
plex game using our ship, I would like to digress to another paddle routine. 
This one controls a moveable gun turret in the horizontal plane. It is used quite 
frequently in most Invaders-type games. 

The screen range on the horizontal axis is 0-279. Our paddle range is, as 
usual, limited to 0-255. In Applesoft, it was easy to multiply by 1.1 to obtain 
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the proper range. However, in machine language the multiplication and divi- 
sion routines are too complex, and require numerous machine cycles to 
execute. Besides, they return the result as two byte values, which means that 
all of our adding and subtracting would require two byte operations. 

It is much easier to accept the fact that the right 10% of the screen is 
unusable or can't be reached by paddles, unless we center the screen by 
adjusting the horizontal offsets. Actually, if our gun is large, we can use part of 
this space without adjustment. Take the gun turret illustrated below. It is 14 
pixels, or two bytes wide. 



PADDLE=255 




10 PIXEL 
*- GAP - 



255 269 
14 PIXELS -*) 



279 



When the paddle value is at zero, the gun plots between 0-13 on the horizon- 
tal axis, and when the paddle is at 255, the gun plots between 255 and 269. 
That leaves only a ten pixel gap, which is hardly noticeable. 

In order to use the paddle routine already developed for the vertical axis, it 
must be modified. The paddle's full range is needed, so clipping is removed 
just after the paddle is read. Instead, we must place a test in the code to prevent 
it from incrementing past $FF ( 255 decimal ) as it homes in on the actual 
paddle value. In this case, we have slowed the turret's movement to five units 
per animation cycle. Again, the value of five is based on the frame rate, and 
what appears to be a reasonable movement rate on the screen. 

After testing the various possibilites of whether the paddle is set to a value 
greater than PHORIZ (the horizontal position) you must prevent it from 
adding five to PHORIZ if PHORIZ > 250. In this case, the PADDLE value is 
251 to 255, and PHORIZ is set equal to the PADDLE. 



CYCLE PADDLE 



2 
1 
2 
3 



253 
253 
253 
253 



PHORIZ 
240 
245 
250 
253 



The following chart and corresponding code is shown below. 
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READ PADDLE 



IF PA 


DDLE < PHORIZ - 




yes 


PHORL 


I = PHORIZ-5 



no 



yes 



IF PHORIZ < 



PHORIZ=0 



no 



IF PHORIZ < PADDLE 



PHORIZ = PADDLE 



paddle3 



yes 



IF PADDLE = PHORIZ 



no 



IF PHORIZ >250 



yes 



no 



PHORIZ = PHORIZ +5 



no 



IF PHORIZ => PADDLE 



paddle4 



yes 



| PHORIZ = PADDLE )£z± 











39 


*READ PADDLE 


#1 


6028: 


A2 


01 




40 


RPDL 


LDX 


#$01 


602A: 


20 


IE 


FB 


41 




JSR 


PREAD 


602D: 


8C 


07 


60 


42 


SKIPP 


STY 


PDL 


6030: 


98 






43 




TYA 




6031 : 


CD 


OB 


60 


44 




CMP 


PHORIZ 


6034: 


BO 


IE 




45 




BGE 


PADDLE3 


6036: 


AD 


OB 


60 


46 




LDA 


PHORIZ 


6039: 


38 






47 




SEC 




603A: 


E9 


05 




48 




SBC 


#$05 


603C: 


BO 


08 




49 




BGE 


PA DDLE 1 


603E: 


A9 


00 




50 




LDA 


#$00 


6040: 


8D 


OB 


60 


51 




STA 


PHORIZ 


6043: 


8D 


OC 


60 


52 




STA 


TPHORIZ 


6046: 


CD 


07 


60 


53 


PADDLE 1 


CMP 


PDL 


6049: 


BO 


03 




54 




BGE 


PADDLE2 


604B: 


AD 


07 


60 


55 




LDA 


PDL 


604E: 


8D 


OB 


60 


56 


PADDLE2 


STA 


PHORIZ 


6051: 


4C 


71 


60 


57 




JMP 


PADDLE6 


6054: 


CD 


OB 


60 


58 


PADDLE3 


CMP 


PHORIZ 


6057: 


FO 


12 




59 




BEQ 


PADDLE4 


6059: 


AD 


OB 


60 


60 




LDA 


PHORIZ 


605C: 


C9 


FA 




61 




CMP 


#$FA 


605E: 


BO 


OB 




62 




BGE 


PADDLE4 


6060: 


AD 


OB 


60 


63 




LDA 


PHORIZ 


6063: 


18 






64 




CLC 





;PADDLE<HORIZ POS THEN SUBTRACT 5 
;MAKE SURE =>0 

; DON'T WANT TO GO PAST PADDLE POS 

;PADDLE>PHORIZ POS THEN ADD 5 
;IS PHORIZ>250 
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6064: 69 05 65 ADC #$05 

6066: CD 07 60 66 CMP PDL ; DON'T WANT TO GO PAST PADDLE POS 

6069: 90 03 67 BLT PADDLE5 

606B: AD 07 60 68 PADDLE4 LDA PDL 

606E: 8D OB 60 69 PADDLE5 STA PHORIZ 

6071: 8D OC 60 70 PADDLE6 STA TPHORIZ 



PADDLE CROSSTALK 

Many readers will attempt at some future time to combine two paddle read 
routines together to control a ship, or a gun crosshair with a joystick. They will 
be dismayed to learn that the paddle values don't read properly. This is called 
paddle crosstalk. 

When a paddle trigger is strobed, all the timers start. If the first paddle that 
you read has a low value, it will return quickly from PRE AD with a paddle 
value. But the timers are still counting. If you immediately call PREAD again, 
the timers aren't restarted at zero, so that you may see a value from the first 
paddle trigger instead of the second. The solution is to wait a sufficient time 
before reading the second paddle. How long is sufficient? Not more than 255 
machine cycles is needed. It is best to space your paddle reads with other code 
in between. 

An alternate solution is to read two paddles simultaneously by triggering 
both strobes (or timers) together. Since the code takes longer to execute while 
the paddle timers count down, the full paddle range can not be expected. The 
code shown below is suitable for joystick control, but only has a range of 40 to 
127. Clever programmers will either adjust these values or offset them to suit 
their needs. 



*THIS DUAL PADDLE READ RETURNS 

♦VALUES AS FOLLOWS 

*PADDLE(0) ,PADDLE( 1) 
* 

*126,127 4A.127 

* ! 

* ! 

* ! 

* ! 

* ! 

* ! 

*126,47 44 hl 

* 

ORG $300 
ZERO DS 1 
ONE DS 1 

LDX #$00 

STX ONE 

STX ZERO 

LDX #$7F 

LDA $C070 ; STARTS BOTH TIMERS 











1 










2 










3 










4 










5 










6 










7 










8 










9 










10 










11 










12 










13 










14 










15 










16 


0302: 


A2 


00 




17 


0304: 


8E 


01 


03 


18 


0307: 


8E 


00 


03 


19 


030A: 


A2 


7F 




20 


030C: 


AD 


70 


CO 


21 
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030F: 
0312: 
0314: 
0315: 
0316: 
0319: 
031C: 
031F: 
0321: 
0322: 
0323: 
0326: 
0329: 
03 2A: 
032C: 
03 2E: 
032F: 
0332: 
0335: 
0337: 
0338: 
033B: 
033E: 



AD 64 CO 22 
29 80 23 
OA 24 
2A 25 
6D 00 03 26 
8D 00 03 27 
AD 65 CO 28 
29 80 29 
OA 30 
2A 31 
6D 01 03 32 
8D 01 03 33 
CA 34 
DO E3 35 
A9 7F 36 
38 37 
ED 00 03 38 
8D 00 03 39 
A9 7F 40 
38 41 
ED 01 03 42 
8D 01 03 43 
60 44 



LOOP 



LDA 
AND 
ASL 
ROL 
ADC 
STA 
LDA 
AND 
ASL 
ROL 
ADC 
STA 
DEX 
BNE 
LDA 
SEC 
SBC 
STA 
LDA 
SEC 
SBC 
STA 
RTS 



ONE 
ONE 



ZERO 
ZERO 
#$7F 



ONE 
ONE 



LOOP 
#$7F 



ZERO 
ZERO 
$C065 
#$80 



$C064 
#$80 



; PADDLE 1 TIMER 



; PADDLE TIMER 



—END ASSEMBLY— 



Many game designers choose keyboard controls instead of joystick controls. 
There are two reasons for this. The first is speed. Obviously, a test for a specific 
keypress only takes three instructions. A paddle, on the other hand, can take as 
long as 255 machine cycles. Two paddles (joystick) take nearly twice as long if 
you avoid crosstalk. There are many games where reading two paddles slows 
the program down. Several games resort to reading one paddle direction on 
alternate frames, and the other on the opposite frame; however, the controls 
seem sluggish. The only sensible solution is to write fast, efficient code, so that 
reading paddles does not affect the game's speed. 

The second reason for keyboard control is that, until recently, few computer 
owners had joysticks. If the latter is the reason, the designer should offer a 
choice of control modes. Certainly playability is more important than 
monetary gain from a wider audience. 
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DROPPING BOMBS AND SHOOTING BULLETS 



Simulating a bomb drop realistically involves some knowledge of how a body 
in motion reacts to a constant force; in this case, gravity. The physics of a body 
in motion requires advanced mathematics, mainly calculus. But calculus 
actually involves the summation of many bits and pieces of a body's velocity 
and acceleration to determine the actual distance an object travels. The com- 
puter, fortunately, automatically divides our time frame into small units, or 
animation frames, wherein the force vectors can be displayed as direction vec- 
tors. 

Let's examine an object in simple linear motion. The object is initially at 
rest. It is then given a horizontal velocity of one unit to the left. Thus, the 
velocity is + 1 unit/time frame. During each animation frame, the object 
moves + 1 units to the right. 

An object's direction of travel and its magnitude is represented by a line seg- 
ment called a vector. An object's velocity vector always points in the direction 
of travel. Our object shown below has a velocity of + 1 units/ time frame, so 
that the velocity is pointing to the right. Since the velocity vector is to the right, 
the object moves to the right. 



(X,Y) 



3 4 
Frame #3 



S5 

o 

! — I 

H 
i — i 
CO 

O 
cu 

X 



5 ■• 



4 • 



3 ■■ 



2 ■• 



-t— 

6 



(X,Y) 
I— 



I v 



>-> 

l — l 

o 

I— I 

w 
> 



FRAMES 



Velocity = Const. 



Frame #4 



FRAMES 
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This can be formalized into equations for each of the 
two screen directions X and Y. 



VX = +1 
X =X + VX 



Likewise 



velocity is constant in X direction 
new position is the old position plus 
the change in position (velocity). 



VY =0 
Y =Y 



+ VY 



velocity is stationary in Y direction. 



Therefore, the object remains stationary in the Y direction. 

If a force were suddenly applied to our moving object so that the velocity in 
the X direction were to increase by one with each time frame, the distances 
traveled would grow substantially. 



VELOCITY POSITION (distance) 



>- 

E-i 
I — I 

8 

J 

W 
> 




10 15 
X POSITION 



20 
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This driving force that speeds up our object is called acceleration ( V = V + 
A ) . The acceleration in the previous example was + 1 units/frame. The 
acceleration in space games is a rocket's thrust and, for falling bombs, it is 
gravity. To simplify things, when working with a falling bomb, we will neglect 
variables like wind resistance, and assume that the bomb has a small forward 
velocity equal to that of the plane. The plot of the trajectory of a falling bomb is 
shown below. The trajectory forms a curve that is often called "parabolic". 
You should note that although the velocity in the X direction remains constant, 
the velocity in the Y direction (VY) grows larger with time. It grows larger 
because gravity accelerates the object constantly in the downward direction. 
This same effect can be observed by dropping a ball from the second or third 
story of a building. At first, the ball falls slowly, but then it begins falling faster. 
Observers at ground level will note an accelerated moving ball just before it 
bounces. 

The velocity of the falling bomb has two components represented by velocity 
vectors - one in the X direction and the other in the Y direction. These two 
velocity vectors can be graphically added together to form a total velocity 
vector. The summation of the two vectors determines the resultant direction of 
an object's motion for each animation frame. Since the VY vector grows larger 
with each frame, the total velocity vector begins to point downward. Eventual- 
ly, the bomb will be falling almost straight down. Thus: 



VX = CONST 

VY = VY + GRAVITY 





BOMB TRAJECTORY 



\ 



Y 




\ 




TOTAt 



X 
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If you are programming the motion of a falling bomb, the equations or 
algorithm are as follows. 



VX = CONST 

VY = VY + GRAVITY 



X = X 
Y = Y 



+ VX 
+ VY 



For all practical purposes, a gravity constant of 3 to 5 will produce realistic 
curves on the Apple's Hi-Res screen, but this, again, like our choice of a con- 
stant for paddle movement, is dependent on factors like the animation frame 
rate and the scale of other objects on the screen. 

The trajectories of bullets and artillery shells are another useful feature in 
games. Bullets in games like Apple Invaders and Galaxian travel straight up- 
wards on the screen. 





X = 

VY = NEGATIVE CONSTANT 
so that 

X = CONST 

Y = Y +( -VY) 

Bullets that travel diagonally, but at a constant velocity in 
the direction shown, have a VY that is negative and a VX 
that is positive. The velocity vector determines the direc- 
tion of travel. 

VX = POSITIVE CONSTANT 
VY = NEGATIVE CONSTANT 
so that 

X = X + VX 

Y = Y +( -VY) 



Our bullet is fired from a movable gun base at the bottom of the screen. Its 
location, in relation to the gun barrel, is shown in the design at the right. The 

bullet's shape is eight units tall by four units 
wide and, like the gun base, uses seven 
different offset shape tables. Although the 
bullet is white, it is easier to use the same draw- 
ing routine to move it in conjunction with the 
gun base. 



BVERT 



8 Lines 




Bullet 



PHORIZ 
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The bullet's horizontal velocity is VX = and its vertical velocity is VY = 
-8. Thus, X = X + VX, or X = const , and Y = Y - VY. The bullet's 
vertical position is defined as BVERT. Therefore, BVERT = BVERT -8 for 
each frame. If the bullet's horizontal position is to remain constant once it is 
fired, it must be set free of PHORIZ (the gun's horizontal position), because 
its value would undoubtedly change if the gun turret moves after the bullet is 
fired. The bullet's horizontal position, BPHORIZ, is set equal to PHORIZ 
when the gun fires, and is used to determine the horizontal offset into the 
screen line while it plots the bullet. The value is also used to index into the 
XOFF table, which in turn acts as an index to the proper shape table when the 
bullet is plotted on the screen. 

The bullet travels further toward the top of the screen during each screen 
frame. Notice that it travels exactly eight lines upwards per cycle. This allows 
us to begin drawing at the start of one of the 24 eight line subgroups. 

The code also prevents you from firing more than one bullet at a time. When 
a bullet is on the screen, a flag called BON (short for "bullet on") is set to pre- 
vent you from firing again. There is more than a casual reason for doing this. If 
more than one bullet were fired at one time, you would need to keep track of 
each bullet's position separately. While two bullets might be manageable, a 
large number would involve storing the position values into tables, then access- 
ing them in sequence during the bullet setup routine. 

A flow chart of the algorithm and the code is shown below. 



IS BULLET ON SCREEN 



yes 



no 



IS BUTTON PRESSED? 



no 



yes 



RESET BU 
POSITION 
BVERT 


LLET VERTICAL 

ABOVE GUN 
= $A8 






DRAW INITIAL POSITION 
OF BULLET 






SET BULLET-ON SCREEN 
FLAG BON = 1 



ERASE BULLET 



MOVE BULLET 
BVERT=BVERT-8 



IS BULLET STILL 
ON SCREEN? 
IS BULET =>0 



yes 



no 
— *i 



TURN OFF BULLET-ON 
FLAG. BON=0 
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616D: 
6170: 
6173: 
6176: 
6179: 

617C: 
617E: 
6180: 
6182: 
6184: 
6187: 
618A: 
618C: 
618F: 
6192: 
6195: 

6196: 
6199: 
619B: 
61 9D: 
61A0: 
61A2: 
61A5: 
61A7: 
61AA: 
61AD: 

61B0: 
61B3: 
61B6: 
61B9: 
61BC: 
61BE: 
61C1: 
61C4: 
61C7: 
61CA: 
61CB: 
6 ICE: 
61D0: 
61 D3: 
61D5: 
61D7: 
6 IDA: 
61DD: 
61E0: 
61E3: 



AD 0D 
8D OF 
AC OE 
BE 7C 
BD A2 

85 50 
A9 67 
85 51 
A9 02 
8D 13 
8D 08 
A9 07 
8D 12 
AD 15 
8D OA 
60 

AD 16 
C9 01 
BO 27 
AD 62 
30 03 
4C E3 
A9 A8 
8D 15 
AC OB 
8C OE 

B9 64 
8D OD 
20 6D 
20 A8 
A9 01 
8D 16 
4C E3 
20 6D 
20 A8 
38 

AD 15 
E9 08 
8D 15 
BO 08 
A9 00 
8D 16 
4C E3 
20 6D 
20 A8 
60 



195 
60 196 
60 197 
60 198 

64 199 

65 200 
201 
202 
203 
204 
205 

60 206 
60 207 
208 
60 209 
60 210 
60 211 
212 
213 

60 214 
215 
216 

CO 217 
218 

61 219 
220 

60 221 
60 222 
60 223 
224 
63 225 

60 226 

61 227 
60 228 

229 

60 230 

61 231 
61 232 
60 233 

234 
60 235 

236 
60 237 

238 

239 

60 240 

61 241 
61 242 
60 243 

244 



* BULLET SETUP 

BSETUP LDA BHORIZ 

STA HORIZ 

LDY BPHORIZ 

LDX XOFF.Y 

LDA BSHPLO.X 

STA SHPL 

LDA #>BSHAPES 

STA SHPH 

LDA #$02 

STA SLNGH 

STA TEMP 

LDA #$07 

STA DEPTH 

LDA BVERT 

STA TVERT 
RTS 
SUBROUTINE 

LDA BON 

CMP #$01 

BGE BULUPD 

LDA $C062 

BMI FIRE1 

JMP NOSHOOT 

LDA #$A8 

STA BVERT 

LDY PHORIZ 

STY BPHORIZ 

*_ 

LDA XBASE.Y 

STA BHORIZ 

JSR BSETUP 

JSR GDRAW 

LDA #$01 

STA BON 

JMP NOSHOOT 

BULUPD JSR BSETUP 

JSR GDRAW 
SEC 

LDA BVERT 

SBC #$08 

STA BVERT 

BCS SKIP 

LDA #$00 

STA BON 

JMP NOSHOOT 

SKIP JSR BSETUP 

JSR GDRAW 

NOSHOOT RTS 



*BULLET 
BULLET 



FIRE1 



-.INDEX TO WHICH SHAPE TABLE 
; INDEX TO GET LO BYTE OF BOMB 
; SHAPE TABLE 

;GET HI BYTE OF SHAPE 



; SHAPE 7 LINES DEEP 



;TEST BULLET ON SCREEN 



; NEG BUTTON PRESSED 



; BULLET HORIZ POS CONSTANT AT - 
; INITIAL FIRING POSITION(0-255) 
;FIND HOR BYTE OFFSET 
; (CONSTANT DURING VERTICAL TRAVEL) 



;SET BULLET ON SCREEN FLAG 



;THE CARRY FLAG IS SET IF POS 
;SET BULLET DEAD FLAG 



If you consider a bullet that is traveling diagonally upwards and to the right, 
and allow gravity to take effect, then the trajectory resembles that of an artillery 
shell. 



Y 




X 



The gravity vector tends to bend our velocity vector so that it no longer 
travels at its initial 45 degree angle. By the time our bullet reaches the peak of 
its flight, the gravity vector has incrementally subtracted our vertical velocity 
vector to zero. At that point, there is only the horizontal velocity component. 
Since gravity affects our bullet at every time increment, it soon causes our 
velocity vector to have a negative vertical component. The bullet then begins to 
fall. 

VY = VY + ( - G) Y = Y + VY 
VX = CONST X = X + VX 

Once you understand the vector concept of how an object falls, the bomb 
drop routine becomes elementary. The bomb must fall from the center of our 
plane because, by design, bomb bays are located at the plane's center of gravi- 
ty. Since the tail of our plane is the vertical paddle position (VERT) and the 
plane is eight lines deep, the first available plotting position beneath the plane 
is at (VERT + 9). 
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The bomb can be defined by the following shape table. 




OFFSET 




To simplify the graphics, it is easier to move the bomb horizontally one byt 
(or seven pixels) at a time. Consequently, with the bomb plotted in white, th 
even - odd offset color problems vanish. The flowchart and code follow. ' 



bomb 



IS BUTTON PRESSED-? 



nodrop 



yes 



IS BOMB STILL FALLING? 
IS BMLOCK = ? 



drop 



yes 



IS BOMB STILL FALLING? 
IS BMLOCK = 1 



DROP 


BOMB 


YB 




BVERT 


VY 








IS YB > YTARGET? 



yes 



YB = YTARGET 
TMBLOCK = 



SET FLAGS ON 
BMLOCK = 1 
TBMLOCK= 1 



DRAW 


FIRST 


BOMB 


POSITION 



fallin 



yes 



> VY = VY + ACCELERATION 



NEW VERTICAL POSITION 
YB = YB + VY 



NEW HORIZONTAL POSITION 
BOMBH = BOMBH + 1 



IS YB > YTARGET? 



yes 



YB = YTARGET 
TBMLOCK = 



DRAW BOMB AT 
NEW POSITION 



REST OF PROGRAM 
INCLUDING SCROLLING 



bombx 



IS 


BMLOCK = 


0? 


SKIP 


IF 


ISN'T 


FALLING 



NOTES: 



BMLOCK: Bomb still falling. 
1 = yes = no 

TBMLOCK: Temporary flag set 
to if bomb struck 
ground. Used in 
BXDRAW subroutine to 
test if BMLOCK is 
set back to 0. 



yes 



XDRAW BOMB 



IS TBMLOCK = 



yes 



BMLOCK = 



B0MB3 



RTS 



6489: 
648C: 
648E: 
6491: 
6494: 
6496: 
6498: 
649B: 
649C: 
649E: 
64A1: 
64A4: 
64A6: 
64A9: 
64AB: 
64AE: 
64B0: 
64B3: 
64B6: 
64B9: 
64BC: 
64BD: 
64C0: 
64C2: 
64C5: 
64C6: 
64C8: 
64CB: 
64CE: 
64D1: 
64 D4: 
64D7: 
64 B9: 

64 DC: 
64DF: 
64E1: 
64E3: 
64E5: 
64E8: 
64EB: 
64ED: 
64 FO: 
64F3: 
64F6: 

64F7: 
64 FA: 
64FC: 
64FF: 
6502: 
6505: 
6508: 
650B: 
650D: 
650F: 
6512: 



AD 61 
30 03 
4C BD 
AD 1A 
C9 01 
BO 2A 
AD OC 
18 

69 09 
8D 16 
8D 17 
A9 OA 
8D 19 
A9 00 
8D 18 
A9 01 



8D 
8D 



20 45 
20 59 
60 

AD 1A 
FO 34 
AD 18 
18 

69 05 
8D 18 
6D 16 
8D 17 
8D 16 
AD 19 
69 01 
8D 19 

AD 16 
C9 BO 
90 OD 
A9 BO 
8D 16 
8D 17 
A9 00 
8D IB 
20 45 
20 59 
60 

AD 1A 
FO 16 
20 45 
AD 16 
8D 17 
20 70 
AD IB 
DO 05 
A9 00 
8D 1A 
60 



607 
608 
CO 609 
610 
64 611 
60 612 
613 
614 
60 615 
616 
617 
60 618 
60 619 
620 
60 621 
622 
60 623 
624 
60 625 
60 626 
64 627 
64 628 
629 
60 630 
631 
60 632 
633 
634 
60 635 
60 636 
60 637 
60 638 
60 639 
640 
60 641 
642 
60 643 
644 
645 
646 
60 647 
60 648 
649 
60 650 
64 651 
64 652 
653 
654 
60 655 
656 
64 657 
60 658 
60 659 
64 660 
60 661 
662 
663 
60 664 
665 



*BOMB SUBROUTINE 



BOMB LDA 
BMI 
JMP 

B0MB1 LDA 
CMP 
BGE 

DROP LDA 
CLC 
ADC 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
JSR 
JSR 
RTS 

NODROP LDA 
BEQ 

FALLIN LDA 
CLC 
ADC 
STA 
ADC 
STA 
STA 
LDA 
ADC 
STA 

• ;; -TEMP DETECT 
LDA 
CMP 
BLT 
LDA 
STA 
STA 
LDA 
STA 

B0MB2 JSR 
JSR 

B0MB3 RTS 
*BOMB XDRAW 
BOMBX LDA 
BEQ 
JSR 
LDA 
STA 
JSR 
LDA 
BNE 
LDA 
STA 

BOMBX 1 RTS 



$C061 

B0MB1 

NODROP 

BMLOCK 

#$01 

FALLIN 

VERT 



BVERT 

TBVERT 

#$0A 

BHORIZ 

#$00 

BVELY 

#$01 

BMLOCK 

TBMLOCK 

BSET 

BDRAW 

BMLOCK 

B0MB3 

BVELY 

#$05 
BVELY 
BVERT 
TBVERT 
BVERT 
BHORIZ 
#$01 
BHORIZ 
FOR BOMB 
BVERT 
#$B0 
B0MB2 
#$B0 
BVERT 
TBVERT 



TBMLOCK 

BSET 

BDRAW 



BMLOCK 

BOMBX 1 

BSET 

BVERT 

TBVERT 

BXDRAW 

TBMLOCK 

BOMBX 1 

#$00 

BMLOCK 



;NEG IF BUTTON PRESSED 



;IS BOMB STILL FALLING? 
;YES, GOTO FALLIN 



; INITIAL POSITION OF BOMB 
; STARTING HORIZ POSITION 
; INITIAL VERTICAL VELOCITY 



; RESET TO ON 

; RESET END OF FALL TO OFF 
;DRAW BOMB 



;IS BOMB STILL FALLING 



i ADD ACCELERATION CONSTANT 
;NEW VERTICAL VELOCITY 



; BOMB'S NEW VERTICAL POSITION 

; BOMB'S HORIZ. VELOCITY ( CONSTANT ) 
; BOMB'S NEW HORIZ. POSITION 
LANDING 

; BOTTOM SCREEN? 
;N0! THEN B0MB2 



;SET END OF BOMB FALL FLAG 



;IS BOMB STILL FALLING?( 1=YES) 
;SKIP IF 



; XDRAW BOMB 



; RESET BOMB FALLING TO OFF 











574 


*DRAWING 


ROUTINES FOR BOMB 










575 










6445: 


A9 


EF 




576 


BSET 


LDA 


#<SHBOMB 


; ADDRESS BOMB SHAPE 


6447: 


85 


56 




577 




STA 


BOMBL 




6449: 


A9 


68 




578 




LDA 


#>SHBOMB 




644B: 


85 


57 




579 




STA 


BOMBH 




644D: 


AD 


19 


60 


580 




LDA 


BHORIZ 


; BOMB'S HORIZ. POSITION 


6450: 


8D 


OE 


60 


581 




STA 


HORIZ 




6453: 


A9 


03 




582 




LDA 


#$03 




6455: 


8D 


11 


60 


583 




STA 


DEPTH 




6458: 


60 






584 




RTS 






6459: 


AC 


17 


60 


585 


BDRAW 


LDY 


TBVERT 


;BOMB VERT POS 


645C: 


20 


1C 


63 


586 




JSR 


GETADR 




645F: 


A2 


00 




587 




LDX 


#$00 




6461: 


Al 


56 




588 




LDA 


( BOMBL, X) 


;GET ADDRESS OF BOMB SHAPE 


6463: 


91 


26 




589 




STA 


(HIRESL) ,Y 


;PLOT 


6465: 


EE 


17 


60 


590 




INC 


TBVERT 




6468: 


E6 


56 




591 




INC 


BOMBL 




646A: 


CE 


11 


60 


592 




DEC 


DEPTH 




646D: 


DO 


EA 




593 




BNE 


BDRAW 




646F: 


60 






594 




RTS 






6470: 


AC 


17 


60 


595 


BXDRAW 


LDY 


TBVERT 




6473: 


20 


1C 


63 


596 




JSR 


GETADR 




6476: 


A2 


00 




597 




LDX 


#$00 




6478: 


Al 


56 




598 




LDA 


(BOMBL, X) 




647 A: 


51 


26 




599 




EOR 


(HIRESL), Y 




647C: 


91 


26 




600 




STA 


(HIRESL) ,Y 




64 7E: 


EE 


17 


60 


601 




INC 


TBVERT 




6481: 


E6 


56 




602 




INC 


BOMBL 




6483: 


CE 


11 


60 


603 




DEC 


DEPTH 




6486: 


DO 


E8 




604 




BNE 


BXDRAW 




6488: 


60 






605 




RTS 







THE INVADERS TYPE GAME 

Games of this type are classed as shoot-'em-up games. They generally 
involve a movable gun turret, or space ship, that traverses the bottom of the 
screen. The object is to defend against a horde of attacking aliens by firing 
bullets up at them. The aliens can either advance in ranks, like they do in 
Space Invaders, or they can swoop down singly or in groups, as they do in 
Apple Galaxian. Sometimes, background stars, moving from top to bottom, 
generate the feeling that your gun or ship is in motion. But these games still 
involve a static screen in the sense that all objects are manipulated within the 
screen space. 

On the other hand, there are games that could be classed as dynamic 
because the entire background is scrolling in some preset direction, while the 
ship or other vehicle usually has controllable movement on the non-scrolling 
axis only. Objects which are out of view can be manipulated and scheduled to 
appear when your ship moves into their general vicinity. Moving your ship 
involves scrolling the entire background, so that terrain and objects out of the 
range of your display, suddenly appear. Of course, the terrain you previously 
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INITILIZE ALL 



DRAW GUN TURRET & ALIENS 



-H RE AD PADDLE 



XDRAW GUN TURRET 



IS BUTTON PRESSED? f 
I yes 

:i 



no 



FIRE BULLET 



MOVE BULLET IF 
PREVI OUSLY FIRED 

I 



XDRAW ALIENS 



MOVE ALIENS TO 
NEW POSITION 



DRAW ALIENS 



ALIEN HIT BY BULLET? 



yes 



UPDATE SCORE 



| XDRAW ALIEN 



MOVE ALIEN BULLETS TOWARDS SHIP 



DRAW GUN TURRET 



GUN TURRET HIT? 



,no 



yes 



LOSE SHIP 



SMALL DELAY 



occupied is now off screen. Arcade games like Pegasus II involve constant 
terrain scrolling from right to left as your spaceship moves further into the 
enemy's territory. This type of animation will be discussed in the following 
chapter. 

The sequence of events in an Invaders game is diagrammed above. It is 
typical of most games. While we aren't going to develop the entire game, we 
will integrate the paddle and bullet firing routines previously outlined in this 
chapter with the color drawing routines discussed in Chapter 5. 

Since this is the first time that we have actually put together developed 
subroutines into a workable game, I should discuss the overall structure of a 
machine language program. Programs begin with storage allocations for 
variables, and zero page equates or assignments to specific memory locations 
in zero page for others. These are followed by initialization routines that 
activate Hi-Res graphics, clear the screen, and set specific variables to their 
initial values. The main program loop comes next, followed by subroutines. 
Your tables, both shape and reference, reside at the end. 



DEFINE STORAGE LOCATIONS 



INITILIZE STORAGE 
& VARIABLES 



r— >| MAIN PROGRAM 



SUBROUTINES 
I 

I 

I 

TABLES 
1 1 

1 

SHAPE TABLES 



Using a good assembler makes the job of writing a program relatively easy. 
All the tedious mechanical problems like relative addressing for branch instruc- 
tions, references to variable storage, and memory storage assignments are 
handled automatically. In fact, the assembler is so adept at calculating 
addresses that I often use it for generating internal reference tables to the loca- 
tions of my shapes. 
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Normally, it is good programming practice to put shape tables in some 
specific yet safe place in memory. But while developing short programs, it is an 
extra step to load your shape tables into memory each time that you want to 
test the program. Sometimes, it is more convenient to incorporate shape tables 
into your program, although their memory location changes with each 
modification to your source code. 

The assembler can be used to define a reference table to the low byte of each 
shape in your shape table. In the TED II + assembler, DB defines a byte - the 
lo byte. BIG MAC and MERLIN use DFB. 

659B: 16 SHPLO DB SHAPES 
659C: 2E DB SHAPES + $18 

659D: 46 DB SHAPES + $30 

DB SHAPES + $90 

The assembler looks up the lo byte address for each of our shapes according 
to the address that we give to it. Each shape is 24 (or $18) bytes long. This 
accounts for the reason each succeeding shape address increases by $18. Notice 
on the left of the above listing that the actual byte value is placed into our table 
for each shape. ( SHPLO 16 2E 46 5E ...). This corresponds exactly to the lo 
byte values in our floating shape table. I'll extend a word of caution about 
using this method. Shape tables must not cross page boundaries, because the hi 
byte, which is stored at SHPH in our drawing routine, must be kept constant. 
Sometimes, extra space needs to be allocated in the code just before the shape 
table for correcting this problem. The DS pseudo-op code to Define Storage 
can be used. 

The lo and hi bytes for a particular shape are determined by the following 
code: 



LDY PHORIZ ; PADDLE VALUE 0-255 
LDX XOFF.Y ; INDEX TO FIND WHICH SHAPE IN TABLE 
LDA SHPLO, X ; INDEX TO GET LO BYTE OF SHAPE IN TABLE 
STA SHPL 

LDA #>SHAPES ;GET HI BYTE OF SHAPE TABLE 
STA SHPH 

If you were to choose, instead, to put the shape table at $7000 in memory, 
you would use a table called SHPADR to index to the proper shape. Each posi- 
tion in the table would reference the lo byte of a shape in the shape table. 



SHPADR HEX 00 18 30 48 60 78 90 



The setup routine is modified as follows: 



LDY PHORIZ ; PADDLE VALUE 0-256 

LDX XOFF.Y ; INDEX TO FIND WHICH SHAPE IN TABLE 

LDA SHPADR.X ; INDEX TO LO BYTE IN TABLE 

STA SHPL 

LDA $70 ;HI BYTE OF TABLE 

STA SHPH 

There are no speed advantages or disadvantages gained by using either 
method. The former method is strictly for convenience to be used while 
developing small programs. To avoid mistakes, large programs should 
definitely have shape tables fixed in memory. 

The Invaders routine which follows lacks alien targets. It does, however, 
have a paddle-controlled gun turret which is capable of firing one bullet at a 
time. It is a start, and as you will see later, putting aliens on the screen is not 
difficult. A simple flow chart of the program and the actual code is shown 
below. 



INITILIZE 



READ PADDLE 



XDRAW GUN TURRET 



no 



BUTTON PRESSED? 



yes 



FIRE BULLET 



MOVE BULLET IF 
PREVIOUSLY FIRED 

1 



XDRAW GUN TURRET 
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1 *CODE FOR PART OF INVADERS GAME 











2 




ORG 


$6000 


6000: 


4C 


17 


60 


3 




JMP 


PROG 










4 


COUNT 


DS 


1 










5 


INDEX 


DS 


1 










6 


PADDLEL 


DS 


1 










7 


PADDLEH 


DS 


1 










8 


PDL 


DS 


1 










9 


TEMP 


DS 


1 










10 


VERT 


DS 


1 










11 


TVERT 


DS 


1 










12 


PHORIZ 


DS 


1 










13 


TPHORIZ 


DS 


1 










14 


BHORIZ 


DS 


1 










15 


BPHORIZ 


DS 


1 










16 


HORIZ 


DS 


1 










17 


OBJ 


DS 


1 










18 


LNGH 


DS 


1 










19 


DEPTH 


DS 


1 










20 


SLNGH 


DS 


1 










21 


SHOT 


DS 


1 










22 


BVERT 


DS 


1 










23 


BON 


DS 


1 










24 


HIRESL 


EQU 


$26 










25 


HIRESH 


EQU 


HIRESL+$1 










26 


SHPL 


EQU 


$50 










27 


SHPH 


EQU 


SHPL+$1 










28 


SSHPL 


EQU 


$52 










29 


SSHPH 


EQU 


$53 










30 


STESTL 


EQU 


$54 










31 


STESTH 


EQU 


STESTL+$1 










32 


PREAD 


EQU 


$FB1E 


6017: 


AD 


50 


CO 


33 


PROG 


LDA 


$C050 


601A: 


AD 


52 


CO 


34 




LDA 


$C052 


601D: 


AD 


57 


CO 


35 




LDA 


$C057 


6020: 


20 


8E 


60 


36 




JSR 


CLRSCR 


6023: 


A9 


00 




37 




LDA 


#$00 


6025: 


8D 


16 


60 


38 




STA 


BON 










39 


*READ PADDLE 


#1 


6028: 


A2 


01 




40 


RPDL 


LDX 


#$01 


602A: 


20 


IE 


FB 


41 




JSR 


PREAD 


602D: 


8C 


07 


60 


42 


SKIPP 


STY 


PDL 


6030: 


98 






43 




TYA 




6031: 


CD 


OB 


60 


44 




CMP 


PHORIZ 


6034: 


BO 


IE 




45 




BGE 


PADDLE3 


6036: 


AD 


OB 


60 


46 




LDA 


PHORIZ 


6039: 


38 






47 




SEC 




603A: 


E9 


05 




48 




SBC 


#$05 


603C: 


BO 


08 




49 




BGE 


PADDLE1 


603E: 


A9 


00 




50 




LDA 


#$00 


6040: 


8D 


OB 


60 


51 




STA 


PHORIZ 


6043: 


8D 


OC 


60 


52 




STA 


TPHORIZ 


6046: 


CD 


07 


60 


53 


PADDLE1 


CMP 


PDL 


6049: 


BO 


03 




54 




BGE 


PADDLE2 


604B: 


AD 


07 


60 


55 




LDA 


PDL 


604E: 


8D 


OB 


60 


56 


PADDLE2 


STA 


PHORIZ 


6051: 


4C 


71 


60 


57 




JMP 


PADDLE6 


6054: 


CD 


OB 


60 


58 


PADDLE3 


CMP 


PHORIZ 


6057: 


FO 


12 




59 




BEQ 


PADDLE4 


6059: 


AD 


OB 


60 


60 




LDA 


PHORIZ 



;JUMP TO START OF CODE 



;PADDLE<HORIZ POS THEN SUBTRACT 5 



;MAKE SURE =>0 



; DON'T WANT TO GO PAST PADDLE POS 



;PADDLE>PHORIZ POS THEN ADD 5 



605C: 


C9 


FA 




61 


CMP 


#$FA 


;IS PH0RIZ>250 


605E: 


BO 


OB 




62 


BGE 


PADDLE4 




6060: 


AD 


OB 


60 


63 


LDA 


PHORIZ 




6063: 


18 






64 


CLC 






6064: 


69 


05 




65 


ADC 


#$05 




6066: 


CD 


07 


60 


66 


CMP 


PDL 


; DON'T WANT TO GO PAST PADDLI 


6069: 


90 


03 




67 


BLT 


PADDLE 5 




606B: 


AD 


07 


60 


68 


PADDLE4 LDA 


PDL 




606E: 


8D 


OB 


60 


69 


PADDLE5 STA 


PHORIZ 




6071: 


8D 


OC 


60 


70 


PADDLE6 STA 


TPHORIZ 




6074: 


20 


3F 


61 


71 


JSR 


GSETUP 




6077: 


20 


A8 


60 


72 


JSR 


GDRAW 




607A: 


20 


6D 


61 


73 


JSR 


BSETUP 




607D: 


20 


96 


61 


74 


JSR 


BULLET 




6080: 


A9 


60 




75 


LDA 


#$60 




£iOft? • 


9n 
zu 


Aft 
rto 




/ 


1CP 
JoK 


<t CP A Q 

IprLAo 




6085: 


20 


3F 


61 


77 


JSR 


GSETUP 




6088: 


20 


A8 


60 


78 


JSR 


GDRAW 




608B: 


4C 


28 


60 


79 
80 


JMP 


RPDL 


;BACK TO BEGINNING OF MAIN LC 










81 


** S U B R 


U T I N E S 












82 
















83 


*CLEAR SCREEN 






608E: 


A9 


00 




84 


CLRSCR LDA 


#$00 




6090: 


85 


26 




85 


STA 


HIRESL 




6092: 


A9 


20 




86 


LDA 


#$20 




6094: 


85 


27 




87 


STA 


HIRESH 




6096: 


AO 


00 




88 


CLRl LDY 


#$00 




6098: 


A9 


00 




89 


LDA 


#$00 




609A: 


91 


26 




90 


CLR2 STA 


(HIRESL), Y 




609C: 


C8 






91 


INY 






609D: 


DO 


FB 




92 


BNE 


CLR2 




609F: 


E6 


27 




93 


INC 


HIRESH 




60A1: 


A5 


27 




94 


LDA 


HIRESH 




60A3: 


C9 


40 




95 


CMP 


#$40 




60A5: 


90 


EF 




96 


BCC 


CLRl 




60A7: 


60 






97 


RTS 














98 


*DRAW GUN SHAPE DEPTH LINES BY LNGH 


60A8: 


AC 


OA 


60 


99 


GDRAW LDY 


TVERT 


; VERTICAL POSITION 


60AB: 


20 


E6 


60 


100 


JSR 


GETADR 




60AE: 


A2 


00 




101 


LDX 


#$00 




60B0: 


Al 


50 




102 


GDRAW3 LDA 


(SHPL.X) 


;GET BYTE OF SHIP'S SHAPE 


60B2: 


51 


26 




103 


EOR 


(HIRESL), Y 




60B4: 


91 


26 




104 


STA 


(HIRESL), Y 


;PLOT 


60B6: 


E6 


50 




105 


INC 


SHPL 


; NEXT BYTE OF TABLE 


60B8: 


C8 






106 


INY 






60B9: 


CE 


13 


60 


107 


DEC 


SLNGH 




60BC: 


DO 


F2 




108 


BNE 


GDRAW3 


;IF LINE NOT FINISHED BRANCH 


60BE: 


EE 


OA 


60 


109 


INC 


TVERT 


; OTHERWISE NEXT LINE DOWN 


60C1: 


CE 


12 


60 


110 


DEC 


DEPTH 




60C4: 


DO 


E2 




111 


BNE 


GDRAW 




60C6: 


60 






112 


RTS 














113 


*XDRAW GUN SHAPE 




60C7: 


AC 


OA 


60 


114 


GXDRAW LDY 


TVERT 


; VERTICAL POSITION 


60CA: 


20 


E6 


60 


115 


JSR 


GETADR 




60CD: 


A2 


00 




116 


LDX 


#$00 




60CF: 


Al 


50 




117 


GXDRAW2 LDA 


(SHPL.X) 




60D1: 


51 


26 




118 


EOR 


(HIRESL), Y 




60D3: 


91 


26 




119 


STA 


(HIRESL), Y 




60D5: 


E6 


50 




120 


INC 


SHPL 





170 



60D7: 
60D8: 
60DB: 
60DD: 
60E0: 
60E3: 
60E5: 

60E6: 
60E9: 
60EA: 
60ED: 
60EF: 
60F2: 
60F4: 
60F7: 
60FA: 
60FC: 

60FD: 
60FF: 
6101: 
6103: 
6105: 
6106: 
6108: 
610A: 
610C: 
610E: 
6110: 
6112: 
6114: 
6117: 
6119: 
611A: 
611C: 

611D: 
611F: 
6121: 
6123: 
6125: 
6127: 
6128: 
612A: 
61 2C: 
612E: 
6130: 
6132: 
6134: 
6136: 
6139: 
613B: 
613C: 
613E: 

613F: 
6142: 
6145: 
6148: 



C8 

CE 13 
DO F2 
EE OA 
CE 12 
DO E2 
60 

B9 E4 
18 

6D OF 
85 26 
B9 A4 
85 27 
AD 08 
8D 13 
AO 00 
60 

A2 00 
Al 50 
91 26 
A5 27 
18 

69 04 
85 27 
E6 50 
C9 40 
90 EF 
E9 20 
85 27 
CE 11 
FO 03 
C8 

DO E3 
60 

A2 00 
Al 50 



61 



51 
91 



A5 27 
18 

69 04 
85 27 
E6 50 
C9 40 
90 ED 
E9 20 
85 27 
CE 11 
FO 03 
C8 

DO El 
60 

AC OB 
B9 64 
8D OF 
BE 7C 



121 
60 122 
123 
60 124 
60 125 
126 
127 
128 
129 
130 
60 131 
132 

62 133 
134 

60 135 

60 136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 

60 152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 

60 171 
172 
173 
174 
175 
176 

60 177 

63 178 
60 179 

64 180 



INY 
DEC 
BNE 
INC 
DEC 
BNE 
RTS 
SUBROUTINE 
LDA YVERTL , Y 



SLNGH 

GXDRAW2 

TVERT 

DEPTH 

GXDRAW 



*GETADR 
GETADR 

CLC 

ADC HORIZ 

STA HIRESL 

LDA YVERTH, Y 

STA HIRESH 

LDA TEMP 

STA SLNGH 

LDY #$00 
RTS 

*DRAW ALIEN SHIPS & TARGETS 

DRAW LDX #$00 



LOOK UP LO BYTE OF LINE 
ADD DISPLACEMENT INTO LINE 



LOOK UP HI BYTE OF LINE 



DRAW2 LDA 
STA 
LDA 
CLC 
ADC 
STA 
INC 
CMP 
BCC 
SBC 
STA 
DEC 
BEQ 
INY 
BNE 

DRAW3 RTS 
*XDRAW ALIEN 
XDRAW LDX 
XDRAW2 LDA 

EOR 

STA 

LDA 

CLC 

ADC 

STA 

INC 

CMP 

BCC 

SBC 

STA 

DEC 

BEQ 

INY 

BNE 

XDRAW3 RTS 
^DRAWING ROUTINES SETUP 
GSETUP LDY PHORIZ 
LDA XBASE ,Y 
STA HORIZ 
LDX XOFF.Y 



(SHPL.X) 
(HIRESL), Y 
HIRESH 

#$04 
HIRESH 
SHPL 
#$40 
DRAW2 
#$20 
HIRESH 
LNGH 
DRAW3 

DRAW 2 

SHIPS & TARGETS 
#$00 
(SHPL.X) 
(HIRESL), Y 
(HIRESL), Y 
HIRESH 

#$04 
HIRESH 
SHPL 
#$40 
XDRAW2 
#$20 
HIRESH 
LNGH 
XDRAW3 

XDRAW2 



; PADDLE VALUE 0-256 

;GET BYTE OFFSET IN TABLE 

; INDEX TO FIND WHICH SHAPE TABLE 



614B: 


BC 


94 


65 


181 




LDY 


cup A r)R Y 


• y o a 


614E: 


B9 


9B 


65 


182 




LDA 


SHPIO Y 


• TNTYFY TO PFT T n dvtp cu a r>T? t . nT „ 
tinUEiA iu uiil uj Dili, onArh TABLE 


6151: 


85 


50 




183 




STA 


SHPL 


6153: 


A9 


66 




184 




LDA 




•TFT HT RVTF HF CUADF 
f \jcj l ni d 1 1 d Ur oriAr L 


6155: 


85 


51 




185 




STA 


SHPH 


6157: 


A9 


03 




186 




LDA 


#$03 




6159: 


8D 


13 


60 


187 




STA 


SLNGH 




615C: 


8D 


08 


60 


188 




STA 


TEMP 




615F: 


A9 


08 




189 




LDA 


#$08 




6161: 


8D 


12 


60 


190 




STA 


DEPTH 




6164: 


A9 


B0 




191 




L*V #$B0 




6166: 


8D 


09 


60 


192 




OT A 

blA 


VLK1 




6169: 


8D 


OA 


60 


193 




OTA 

blA 


TVERT 




616C: 


60 






194 
195 


* BULLET 


RTS 

SETUP 






616D: 


AD 


0D 


60 


196 


BSETUP 


LDA 


BH0RIZ 




6170: 


8D 


OF 


60 


197 




STA 


H0RIZ 




6173: 


AC 


0E 


60 






LDY 


BPH0RIZ 




6176: 


BE 


7C 


64 


199 




LDX 


X0FF.Y 


; INDEX TO WHICH SHAPE TABLE 


6179: 


rtt 


A.9 
rtZ 


A"a 


9nn 

ZUU 

9m 

ZUl 




LDA 


BSHPL0.X 


; INDEX TO GET LO BYTE OF BOMB - 

_ fill i TlTT 1 Ti m T~> 

JbnAPE TABLE 


617C: 


OJ 


JU 




909 
zuz 




STA 


SHPL 




617E: 


AQ 


6.7 




9m 

ZU J 




LDA 


#>BSHAPES 


;GET HI BYTE OF SHAPE 


6180: 


85 


51 




9 HA 
zut 




STA 


SHPH 


fil P.? • 

U 1 OjL • 


AQ 


0.9 

uz 




9n^ 




LDA 


#$02 




6184: 


fin 


1 ? 


An 


9 HA 
ZUD 




STA 


SLNGH 




AT 9.1 • 






An 


ZU / 




STA 


TEMP 




618A: 


AQ 


u/ 




ZUO 




LDA 


#$07 


; SHAPE 7 LINES DEEP 


618C: 


3D 


1 9 
1 z 


DU 


90Q 

zuy 




STA 


DEPTH 


618F: 


AD 


15 


60 


91 n 

Z i u 




LDA 


BVERT 




6192: 


8D 


OA 


60 


21 1 




STA 


TVERT 




6195: 


60 






919 
Z 1 z 




RTS 














9 1 ? 

Z 1 «J 


#RI1I 1 FT 


SUBROUTINE 




6196: 


AD 


l f\ 
io 


An 

DU 


Z 11 


RUT T CT 


LDA 


BON 


-TCCF DTTI T T?T> AIT oor* nrilT 

Jlbbl BULLET ON SCREEN 


AT QQ» 

U177 • 


PQ 


O 1 
U 1 




9 1 ^ 
Zl J 




CMP 


#$01 




RO 
DU 


97 
Z * 




9 1 A 
Z 1 O 




BGE 


BULUPD 




at Qn« 


An 


A9 
OZ 


L/U 


917 
Zi / 




LDA 


$C062 


; NEG BUTTON PRESSED 


61A0: 


JU 


UJ> 




9 1 S 
Z 10 




BMI 


FIRE1 




61A2: 


4C 


E3 


61 


219 




JMP 


N0SH00T 




61A5: 


A9 


A8 




220 


FIRE1 


LDA 


#$A8 




61A7: 


8D 


15 


60 


221 




STA 


BVERT 




61AA: 


AC 


0B 


60 


222 




LDY 


PHORIZ 




61AD: 


8C 


OF 


An 

w 


99? 
zzo 

99A 

ZZf 


#_ 


STY 


BPHORIZ 


• OUT T CT UrtDT7 T3f\C fAHCT A MT 1 AT 

JDULLbl nUKlz, rUb CUNblANl Al - 

• TMTTTAT UTDTMP EW\C TTTAM ( C\ OCC\ 

;1N111AL rlKINb rUbl 1 lUN^U— zj5) 


61B0: 


B9 


64 


63 


225 




LDA 


XBASE, Y 


• FTNTl HHP RYTF HFFQFT 

t r xiiu nuK dii d ur r otj 1 


61B3: 


8D 


0D 


60 


226 




STA 


BHORIZ 


9 ^L-UilolAWl JJUKllNb VEiKIXLAIj IKAVfcL^ 


61B6* 


90 

ZU 


\)U 


Dl 


997 
ZZ / 




JSR 


BSETUP 


61B9: 




no 


DU 


99H 
ZZO 




JSR 


GDRAW 




didl: 


AO 


Ul 




zzV 




LDA 


#$01 




A 1 DC • 




Id 


oU 


230 




STA 


BON 


;SET BULLET ON SCREEN FLAG 


oiui : 




to 




Z Jl 




JMP 


N0SH00T 






9H 




A 1 
O 1 


9^9 
ZJZ 


RUT TTPH 


JSR 


BSETUP 






9H 
ZU 


HO 


DU 


9?? 
ZO J 




JSR 


GDRAW 




ATPA • 


JO 






9 "V. 
Z 




SEC 






61CB: 


AD 


1 s 


DU 


9?^ 

Z J J 




LDA 


BVERT 




61CE: 


FQ 


Oft 
uo 




9?A 
Z JO 




SBC 


#$08 




61D0: 


8D 


15 


60 


237 




STA 


BVERT 


;THE CARRY FLAG IS SET IF P0S 


61D3: 


B0 


08 




238 




BCS 


SKIP 




61D5: 


A9 


00 




239 




LDA 


#$00 


;SET BULLET DEAD FLAG 


61D7: 


8D 


16 


60 


240 




STA 


BON 





172 



6 IDA: 


4C 


E3 


61 


241 




JMP 


NOSHOOT 


61DD: 


20 


6D 


61 


242 


SKIP 


JSR 


BSETUP 


61E0: 


20 


A8 


60 


243 




JSR 


GDRAW 


61E3: 


60 






244 
245 
246 
247 


NOSHOOT 

**T A B 
* 


RTS 
L E S 


## 


61E4: 


00 


00 


00 










61E7: 


00 


00 


00 










61EA: 


00 


00 




248 


YVERTL 


HEX 


0000000000000000 


61EC: 


80 


80 


80 










61EF: 


80 


80 


80 










61F2: 


80 


80 




249 




HEX 


8080808080808080 


61F4: 


00 


00 


00 










61F7: 


00 


00 


00 










61FA: 


00 


00 




250 




HEX 


0000000000000000 


61FC: 


80 


80 


80 










61FF: 


80 


80 


80 










6202: 


80 


80 




251 




HEX 


8080808080808080 


6204: 


00 


00 


00 










6207: 


00 


00 


00 










620A: 


00 


00 




252 




HEX 


0000000000000000 


620C: 


80 


80 


80 










620F: 


80 


80 


80 










6212: 


80 


80 




253 




HEX 


8080808080808080 


6214: 


00 


00 


00 










6217: 


00 


00 


00 










621A: 


00 


00 




254 




HEX 


0000000000000000 


621C: 


80 


80 


80 










621F: 


80 


80 


80 










6222: 


80 


80 




255 




HEX 


8080808080808080 


6224: 


28 


28 


28 










6227: 


28 


28 


28 










622A: 


28 


28 




256 




HEX 


2828282828282828 


62 2C: 


A8 


A8 


A8 










622F: 


A8 


A8 


A8 










6232: 


A8 


A8 




257 




HEX 


A8A8A8A8A8A8A8A8 


6234: 


28 


28 


28 










6237: 


28 


28 


28 










623A: 


28 


28 




258 




HEX 


2828282828282828 


623C: 


A8 


A8 


A8 










623F: 


A8 


A8 


A8 










6242: 


A8 


A8 




259 




HEX 


A8A8A8A8A8A8A8A8 


6244: 


28 


28 


28 










6247: 


28 


28 


28 










624A: 


28 


28 




260 




HEX 


2828282828282828 


624C: 


A8 


A8 


A8 










624F: 


A8 


A8 


A8 










6252: 


A8 


A8 




261 




HEX 


A8A8A8A8A8A8A8A8 


6254: 


28 


28 


28 










6257: 


28 


28 


28 










625A: 


28 


28 




262 




HEX 


2828282828282828 


62 5C: 


A8 


A8 


A8 










625F: 


A8 


A8 


A8 










6262: 


A8 


A8 




263 




HEX 


A8A8A8A8A8A8A8A8 


6264: 


50 


50 


50 










6267: 


50 


50 


50 










626A: 


50 


50 




264 




HEX 


5050505050505050 


62 6C: 


DO 


DO 


DO 










626F: 


DO 


DO 


DO 










6272: 


DO 


DO 




265 




HEX 


DODODODODODODODO 



6274: 
6277: 
627A: 
62 7C: 
627F: 
6282: 
6284: 
6287: 
628A: 
62 8C: 
628F: 
6292: 
6294: 
6297: 
629A: 
62 9C: 
629F: 
62A2: 

62A4: 
62A7: 
62AA: 
62AC: 
62AF: 
62B2: 
62B4: 
62B7: 
62BA: 
62BC: 
62BF: 
62C2: 
62C4: 
62C7: 
62CA: 
62CC: 
62CF: 
62D2: 
62D4: 
62D7: 
62DA: 
62 DC: 
62DF: 
62E2: 
62E4: 
62E7: 
62EA: 
62EC: 
62EF: 
62F2: 
62F4: 
62F7: 
62FA: 
62FC: 
62FF: 
6302: 
6304: 
6307: 
6 30 A: 
630C: 
630F: 



50 50 
50 50 
50 50 
DO DO 
DO DO 
DO DO 
50 50 
50 50 
50 50 
DO DO 
DO DO 
DO DO 
50 50 
50 50 
50 50 
DO DO 
DO DO 
DO DO 

20 24 
2C 30 
38 3C 

20 24 
2C 30 

38 3C 

21 25 
2D 31 

39 3D 

21 25 
2D 31 
39 3D 

22 26 
2E 32 
3A 3E 

22 26 
2E 32 
3A 3E 

23 27 
2F 33 
3B 3F 
23 27 
2F 33 
3B 3F 
20 24 
2C 30 
38 3C 

20 24 
2C 30 

38 3C 

21 25 
2D 31 

39 3D 

21 25 
2D 31 
39 3D 

22 26 
2E 32 
3A 3E 
22 26 
2E 32 



50 
50 

DO 
DO 

50 
50 

DO 
DO 

50 
50 

DO 
DO 



266 



267 



268 



269 



270 



271 
272 



HEX 5050505050505050 



HEX DODODODODODODODO 



HEX 5050505050505050 



HEX DODODODODODODODO 



HEX 5050505050505050 



HEX DODODODODODODODO 



28 
34 

28 
34 

29 
35 

29 
35 

2A 
36 

2A 
36 

2B 
37 

2B 
37 

28 
34 

28 
34 

29 
35 

29 
35 

2A 
36 

2A 
36 



273 YVERTH HEX 2024282C3034383C 



274 



275 



276 



277 



278 



279 



280 



281 



282 



283 



284 



285 



HEX 2024282C3034383C 



HEX 2125292D3135393D 



HEX 2125292D3135393D 



HEX 22262A2E32363A3E 



HEX 22262A2E32363A3E 



HEX 23272B2F33373B3F 



HEX 23272B2F33373B3F 



HEX 2024282C3034383C 



HEX 2024282C3034383C 



HEX 2125292D3135393D 



HEX 2125292D3135393D 



HEX 22262A2E32363A3E 



174 



6312: 3A 3E 286 
6314: 23 27 2B 
6317: 2F 33 37 
631A: 3B 3F 287 
631C: 23 27 2B 
631F: 2F 33 37 
6322: 3B 3F 288 
6324: 20 24 28 
6327: 2C 30 34 
632A: 38 3C 289 
632C: 20 24 28 
632F: 2C 30 34 
6332: 38 3C 290 
6334: 21 25 29 
6337: 2D 31 35 
633A: 39 3D 291 
633C: 21 25 29 
633F: 2D 31 35 
6342: 39 3D 292 
6344: 22 26 2A 
6347: 2E 32 36 
634A: 3A 3E 293 
634C: 22 26 2A 
634F: 2E 32 36 
6352: 3A 3E 294 
6354: 23 27 2B 
6357: 2F 33 37 
635A: 3B 3F 295 
635C: 23 27 2B 
635F: 2F 33 37 
6362: 3B 3F 296 
6364: 00 00 00 
6367: 00 00 00 
636A: 00 297 
636B: 00 01 01 
636E: 01 01 01 
6371: 01 298 
6372: 02 02 02 
6375: 02 02 02 
6378: 02 299 
6379: 02 03 03 
637C: 03 03 03 
637F: 03 300 
6380: 04 04 04 
6383: 04 04 04 
6386: 04 301 
6387: 04 05 05 
638A: 05 05 05 
638D: 05 302 
638E: 06 06 06 
6391: 06 06 06 
6394: 06 303 
6395: 06 07 07 
6398: 07 07 07 
639B: 07 304 
639C: 08 08 08 
639F: 08 08 08 
63A2: 08 305 
63A3: 08 09 09 
63A6: 09 09 09 



HEX 22262A2E32363A3E 

HEX 23272B2F33373B3F 

HEX 23272B2F33373B3F 

HEX 2024282C3034383C 

HEX 2024282C3034383C 

HEX 2125292D3135393D 

HEX 2125292D3135393D 

HEX 22262A2E32363A3E 

HEX 22262A2E32363A3E 

HEX 23272B2F33373B3F 

HEX 23272B2F33373B3F 

XBASE HEX 00000000000000 

HEX 00010101010101 

HEX 02020202020202 

HEX 02030303030303 

HEX 04040404040404 

HEX 04050505050505 

HEX 06060606060606 

HEX 06070707070707 

HEX 08080808080808 



63A9: 

63AA: 

63AD: 

63B0: 

63B1: 

63B4: 

63B7: 

63B8: 

63BB: 

63BE: 

63BF: 

63C2: 

63C5: 

63C6: 

63C9: 

63CC: 

63CD: 

63D0: 

63D3: 

63D4: 

63D7: 

63DA: 

63DB: 

63DE: 

63E1: 

63E2: 

63E5: 

63E8: 

63E9: 

63EC: 

63EF: 

63F0: 

63F3: 

63F6: 

63F7: 

63FA: 

63FD: 

63FE: 

6401: 

6404: 

6405: 

6408: 

640B: 

64 0C: 

640F: 

6412: 

6413: 

6416: 

6419: 

641A: 

641D: 

6420: 

6421: 

6424: 

6427: 

6428: 

642B: 

642E: 

642F: 

6432: 



09 306 
OA OA OA 

OA OA OA 

OA 307 

OA OB OB 

OB OB OB 

OB 308 

OC OC OC 

OC OC OC 

OC 309 

OC OD OD 

OD OD OD 

OD 310 

OE OE OE 

OE OE OE 

OE 311 

OE OF OF 

OF OF OF 

OF 312 

10 10 10 
10 10 10 

10 313 

10 11 11 

11 11 11 

11 314 

12 12 12 
12 12 12 

12 315 

12 13 13 

13 13 13 

13 316 

14 14 14 
14 14 14 

14 317 

14 15 15 

15 15 15 

15 318 

16 16 16 
16 16 16 

16 319 

16 17 17 

17 17 17 

17 320 

18 18 18 
18 18 18 

18 321 

18 19 19 

19 19 19 

19 322 
1A 1A 1A 
1A 1A 1A 
1A 323 
1A IB IB 
IB IB IB 
IB 324 
1C 1C 1C 
1C 1C 1C 
1C 325 
1C ID ID 
ID ID ID 



HEX 08090909090909 



HEX OAOAOAOAOAOAOA 



HEX OAOBOBOBOBOBOB 



HEX OCOCOCOCOCOCOC 



HEX OCODODODODODOD 



HEX OEOEOEOEOEOEOE 



HEX OEOFOFOFOFOFOF 



HEX 10101010101010 



HEX 10111111111111 



HEX 12121212121212 



HEX 12131313131313 



HEX 14141414141414 



HEX 14151515151515 



HEX 16161616161616 



HEX 16171717171717 



HEX 18181818181818 



HEX 18191919191919 



HEX 1A1A1A1A1A1A1A 



HEX 1A1B1B1B1B1B1B 



HEX 1C1C1C1C1C1C1C 



6435: 


ID 






326 


6436: 
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327 


64 3D: 


IE 


IF 


IF 




6440: 


IF 


IF 


IF 




6443: 


IF 






328 


6444: 


20 


20 


20 




6447: 


20 


20 


20 




644A: 


20 






329 


644B: 


20 


21 


21 




644E: 


21 


21 


21 




6451: 


21 






330 


6452: 


22 


22 


22 




6455: 


22 


22 


22 




6458: 


22 






331 


6459: 


22 


23 


23 




645C: 


23 


23 


23 




645F: 


23 






332 


6460: 


24 


24 


24 




6463: 


24 


24 


24 




6466: 


24 






333 


6467: 


24 


25 


25 




646A: 


25 


25 


25 




646D: 


25 






334 


646E: 


26 


26 


26 




6471: 


26 


26 


26 




6474: 


26 






335 


6475: 


26 


27 


27 




6478: 


27 


27 


27 




647B: 


27 






336 


64 7C: 


00 


00 


01 




647F: 


01 


02 


02 




6482: 


03 






337 


6483: 


03 


04 


04 




6486: 


05 


05 


06 




6489: 


06 






338 


648A: 


00 


00 


01 




648D: 


01 


02 


02 




6490: 


03 






339 


6491: 


03 


04 


04 




6494: 


05 


05 


06 




6497: 


06 






340 


6498: 


00 


00 


01 




649B: 


01 


02 


02 




649E: 


03 






341 


649F: 


03 


04 


04 




64A2: 


05 


05 


06 




64A5: 


06 






342 


64A6: 


00 


00 


01 




64A9: 


01 


02 


02 




64AC: 


03 






343 


64AD: 


03 


04 


04 




64B0: 


05 


05 


06 




64B3: 


06 






344 


64 B4: 


00 


00 


01 




64B7: 


01 


02 


02 




64BA: 


03 






345 


64BB: 


03 


04 


04 




64BE: 


05 


05 


06 





HEX 1C1D1D1D1D1D1D 

HEX 1E1E1E1E1E1E1E 

HEX 1E1F1F1F1F1F1F 

HEX 20202020202020 

HEX 20212121212121 

HEX 22222222222222 

HEX 22232323232323 

HEX 24242424242424 

HEX 24252525252525 

HEX 26262626262626 

HEX 26272727272727 

HEX 00000101020203 

HEX 03040405050606 

HEX 00000101020203 

HEX 03040405050606 

HEX 00000101020203 

HEX 03040405050606 

HEX 00000101020203 

HEX 03040405050606 

HEX 00000101020203 



64C1: 

64C2: 

64C5: 

64C8: 

64C9: 

64CC: 

64CF: 

64 DO: 

64D3: 

64D6: 

64D7: 

64DA: 

64DD: 

64DE: 

64E1 : 

64E4: 

64E5: 

64E8: 

64EB: 

64EC: 

64EF: 

64F2: 

64F3: 

64F6: 

64F9: 

64FA: 

64FD: 

6500: 

6501: 

6504: 

6507: 

6508: 

650B: 

650E: 

650F: 

6512: 

6515: 

6516: 

6519: 

651C: 

651D: 

6520: 

6523: 

6524: 

6527: 

652A: 

652B: 

652E: 

6531: 

6532: 

6535: 

6538: 

6539: 

653C: 

653F: 

6540: 

6543: 

6546: 

6547: 

654A: 



06 

00 00 

01 02 
03 

03 04 
05 05 
06 

00 00 

01 02 
03 

03 04 
05 05 
06 

00 00 

01 02 
03 

03 04 
05 05 
06 

00 00 

01 02 
03 

03 04 
05 05 
06 

00 00 

01 02 
03 

03 04 
05 05 
06 

00 00 

01 02 
03 

03 04 
05 05 
06 

00 00 

01 02 
03 

03 04 
05 05 
06 

00 00 

01 02 
03 

03 04 
05 05 
06 

00 00 

01 02 
03 

03 04 
05 05 
06 

00 00 

01 02 
03 

03 04 
05 05 



346 



01 
02 

04 
06 

01 
02 

04 
06 

01 
02 

04 
06 

01 

02 

04 
06 

01 
02 

04 
06 

01 
02 

04 
06 

01 
02 

04 
06 

01 
02 

04 
06 

01 
02 

04 
06 

01 
02 

04 
06 



347 



348 



349 



350 



351 



352 



353 



354 



355 



356 



357 



358 



359 



360 



361 



362 



363 



364 



365 



HEX 03040405050606 



HEX 00000101020203 



HEX 03040405050606 



HEX 00000101020203 



HEX 03040405050606 



HEX 00000101020203 



HEX 03040405050606 



HEX 00000101020203 



HEX 03040405050606 



HEX 00000101020203 



HEX 03040405050606 



HEX 00000101020203 



HEX 03040405050606 



HEX 00000101020203 



HEX 03040405050606 



HEX 00000101020203 



HEX 03040405050606 



HEX 00000101020203 



HEX 03040405050606 



HEX 00000101020203 



654D: 


06 






366 




HEX 


n 'WihCMi n <^n ^n An a 
u juhuhu jujuouo 


654E: 


00 


00 


01 










6551: 


01 


02 


02 










6554: 


03 






367 




HFY 


UUUUU 1 U 1 UZU ZUj 


6555: 


03 


04 


04 










6558: 


05 


05 


06 










655B: 


06 






368 




nijA 


f\in/> n/. n ^n aha 
UjU'+U'tU jUjUOUo 


65 5C: 


00 


00 


01 










655F: 


01 


02 


02 










6562: 


03 






369 




HEX 


u uuuu l u i uzu zu o 


6563: 


03 


04 


04 










6566: 


05 


05 


06 










6569: 


06 






370 




HEX 


n ^ n a n a n ^n ^n An a 

U J)U4-U t tU JU jUOUD 


656A: 


00 


00 


01 










656D: 


01 


02 


02 










6570: 


03 






371 






UUUUU J.U1UZUZUJ 


6571: 


03 


04 


04 










6574: 


05 


05 


06 










6577: 


06 






372 




HFY 


U JUHU4U jUjUoUO 


6578: 


00 


00 


01 










657B: 


01 


02 


02 










657E: 


03 






373 




HEX 


UUUUU 1 UiUZUZUj 


657F: 


03 


04 


04 










6582: 


05 


05 


06 










6585: 


06 






374 




HEX 


fiwn/i n ^n ^n AnA 


6586: 


00 


00 


01 










6589: 


01 


02 


02 










658C: 


03 






375 




HEX 


nnnnni ni n?n9H7 

UUUUUlUiUZUZUJ 


658D: 


03 


04 


04 










6590: 


05 


05 


06 










6593: 


06 






376 
377 


*TART F^ 


HEX 


03040405050606 


6594: 


00 


01 


02 










6597: 


03 


04 


05 










659A: 


06 






378 
379 


SHPADR 

* 


HEX 


00010?03040Snfi 


659B: 


16 






380 


SHPLO 


DFB 


SHAPES 


65 9C: 


2E 






381 




DFB 


SHAPFS+tlft 


659D: 


46 






382 




DFB 


SHAPES-)<$30 


659E: 


5E 






383 




L/F D 




659F: 


75 






334 




Ur 13 


SKA ^ES+$60 


65A0: 


8E 
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3E 
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BSHPLO 
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BSHAPES+$0E 
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65A5: 


68 
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65A6: 
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65A7: 


84 
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RSHAPFS+$46 


65A8: 


92 
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DFB 


BSHAPES+$ 54 


65A9: 


AO 






395 
396 
397 


*SHAPE 


DFB 
DS 
TABLE 


BSHAPES+$62 
$6C 
GUN 


6616: 


AO 


81 


00 










6619: 


AO 


81 


00 










661C: 


AO 


81 
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SHAPES 


HEX 


A08100A08100A081 


661E: 


00 


AO 


81 










6621: 


00 


A8 


85 










6624: 


00 


A8 




399 




HEX 


00A08100A88500A8 



6626: 85 00 8A 
6629: 94 00 8A 

662C: 94 00 400 HEX 85008A94008A9400 

401 *2ND 

662E: 00 85 00 
6631: 00 85 00 

6634: 00 85 402 HEX 0085000085000085 

6636: 00 00 85 
6639: 00 AO 95 

663C: 00 AO 403 HEX 00008500A09500A0 

663E: 95 00 A8 
6641: DO 80 A8 

6644: DO 80 404 HEX 9500A8D080A8D080 

405 *3RD 

6646: 00 94 00 
6649: 00 94 00 

664C: 00 94 406 HEX 0094000094000094 

664E: 00 00 94 
6651: 00 00 D5 

6654: 80 00 407 HEX 0000940000D58000 

6656: D5 80 AO 
6659: CI 82 AO 

665C: CI 82 408 HEX D580A0C182A0C182 

409 *4TH 

665E: 00 DO 80 
6661: 00 DO 80 

6664: 00 DO 410 HEX 00D08000D08000D0 

6666: 80 00 DO 
6669: 80 00 D4 

666C: 82 00 411 HEX 8000D08000D48200 

666E: D4 82 00 
6671: 85 8A 00 

6674: 85 8A 412 HEX D48200858A00858A 

413 *5TH 

6676: CO 82 00 
6679: CO 82 00 

667C: CO 82 414 HEX C08200C08200C082 

667E: 00 CO 82 
6681: 00 DO 8A 

6684: 00 DO 415 HEX 00C08200D08A00D0 

6686: 8A 00 94 
6689: A8 00 94 

668C: A8 00 416 HEX 8A0094A80094A800 

417 *6TH 

668E: 00 8A 00 
6691: 00 8A 00 

6694: 00 8A 418 HEX 008A00008A00008A 

6696: 00 00 8A 
6699: 00 CO A A 

669C: 00 CO 419 HEX 00008A00C0AA00C0 

669E: AA 00 DO 
66A1: AO 81 DO 

66A4: AO 81 420 HEX AA00D0A081D0A081 

421 *7TH 

66A6: 00 A8 00 
66A9: 00 A8 00 

66AC: 00 A8 422 HEX OOA80000A80000A8 

66AE: 00 00 A8 
66B1: 00 00 AA 

66B4: 81 00 423 HEX 00O0A800O0AA81O0 
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—END ASSEMBLY- 
ERRORS: 
1952 BYTES 



I'd like to emphasize that careful attention to detail is very important when 
programming. Machine language is very unforgiving. Failure to initialize a 
single variable could cause your graphics to go haywire. One of the most com- 
mon mistakes is to clobber a register in your program or subroutine when call- 
ing another subroutine. Some programmers automatically save the 
Accumulator and X & Y registers by pushing them onto the stack before calling 
a subroutine, and restore them afterwards. It requires six instructions in each 
direction. Yet it makes more sense to have the called subroutine save the 
registers that it knows will be clobbered, and restore them before returning. 

The setup routine for the drawing program is often a source for error. 
Although the setup is basically standard for a particular drawing subroutine, 
accidentally omitting one variable or failure to place a variable, in say, the Y 
register, can be disastrous. To give you an example of unexpected results 
remove the STA TVERT in line 190 by NOPing the code in memory. 

6169: EA EA EA 

Run the program and watch the results. Imagine how long it might take to 
find this mistake. Debugging machine language graphics is difficult because 
events happen too quickly for the eye to detect. An Integer machine or an 
Integer ROM card with step and trace is almost a neccessity. There have been 
times when I cleared the screen manually, set the graphics mode and put the 
machine in trace mode, so that I could watch the graphics being drawn in slow 
motion. Always remember to enter just after your CLRSCR or you will waste 
four or five minutes while the computer clears all 8K of Hi-Res memory. The 
commands for clearing screen #1 manually are as follows. 

*2000: 00 
*2001<2000.3FFFM 

Another debugging tool that is quite helpful is the single step debug module 
which is discussed on page xx. It allows you to step through each animation 
frame using the escape key. If your drawing routines are working as expected 
single stepping will allow you to verify shape movement between successive 
frames. 
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STEERABLE SPACE SHIPS 



The first game with a fully steerable space ship was developed at MIT. It 
was called Space War. While most of the newer computer owners won't recall 
this game, practically everyone is familiar with Asteroids. Most versions of this 
game have a steerable spaceship that can be thrusted in the direction that it is 
headed. Although some versions invoke an automatic deceleration mode, some 
Asteroid games require the player to turn his ship around so that it thrusts in 
the opposite direction to slow down. 

We previously demonstrated, with the topic of dropping bombs and shooting 
bullets, that objects move in the direction of their velocity vector. 



V -f 

V = VX + VY 

(X,Y) 



An object's new position is its old position plus its change in position due to 
velocity, as shown: 

X = X + VX 

Y = Y + VY. 

Using the Apple screen coordinate system for the example above, VY is 
negative and VX is positive. Therefore, 

X = X + (VX) 

Y - Y + ( - VY) 



Y 

I 



While the velocity vector may remain constant for many animation cycles, 
resulting in a ship moving in the same direction, sooner or later a new velocity 
vector will be inputted to change the object's course. This new velocity is the 
vector sum of the old velocity vector and the new velocity vector. 

Those readers who have taken Physics will recall that a body's velocity 
changes due to external forces on it while it is in motion. In space ships, that 
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force is thrust. Thrust causes an acceleration of the object's mass as shown in 
the equation 

F=m*a=m* AV. 

When thrust is applied to a space ship, it accelerates. If a ship is light and has 
a big engine with considerable thrust, it will accelerate quickly. But if it is 
heavy, it will accelerate much slower. This acceleration is essentially brought 
about by a change in the object's velocity if the object's mass is ignored. 

Unless you are doing an actual simulation, in which values of thrust or force 
and an object's mass is important, only acceleration values need to be con- 
sidered. Suitable values for arcade games are small and scaled, so that objects 
don't move too fast relative to their size, or fly off the screen in a blink of the 
eye. 

If we consider a space ship that is in motion for two frames, then apply thrust 
during the third frame, it will change direction depending on the vector sum of 
its old and new velocity vectors. This is illustrated below. The applied thrust is 
straight upwards, so that VX = and VY = -2. The ship's new velocity 
vector is calculated as follows: 




VX = VX + VX = 2 + = 2 

VY = VY + VY = -1 + (-2) = -3 

The ship's new velocity vector causes it to move two units in the X direction 
and three in the negative Y direction during each frame until a new thrust 
vector is applied. The resultant position can be summarized in the table below. 
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FRAME X Y VX 






10 


100 


2 


1 


12 


99 


2 


2 


14 


98 


2 


3 


16 


97 


2 


4 


18 


94 


2 


5 


20 


91 





VY 

-1 X = X + VX 
-1 Y = Y + VY 
-1 

-3 Thrust applied here. 
-3 



A paddle will control the ship's direction in our simulation. The paddle's 
range (0-255) will be divided into eight directions (0-7). Dividing by 32 is sim- 
ple in machine language. An arithmetic shift right ( LSR, four times ) will 
accomplish the task. After the division, paddle values 0-31 are equal to direc- 
tion one, 32-63 to direction two, etc. 

Now that we can control our ship in eight directions, we need shape tables 
for each of these directions. That means eight separate shapes. Rather than 
complicate matters unnecessarily, we will use a white ship and move it horizon- 
tally in one byte (7 pixel) increments, and vertically in eight line jumps. This 
way, we won't need extra sets of tables for the various offsets. Also, by conven- 
iently keeping the shape within one of the 24 screen subsections, we can use an 
abbreviated set of YVERT tables. 




TROTATE 
(0-7) 



PADDLE DIRECTION 



A 


<? 

1 


2 


<> 

3 


4 


5 


6 


7 
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The ship's thrust vector is completely dependent on the ship's paddle- 
controlled direction. If TROTATE, our paddle direction's value is four and 
the ship points down, it's thrust vector or velocity vector is VX = and VY = 
1 . If TROTATE were seven, the ship points diagonally upward and to the left. 
The velocity vector is VX = - 1 and VY = - 1 . 

Note that many of our ship's directions produce negative velocity values, 
while others produce positive values. Separate routines are required for adding 
and subtracting in machine language. BASIC, however, just adds a negative 
number (X = 5 + (-1)). That's the clue. Adding a negative number is ex- 
actly the same as adding a positive number in machine language. Both use an 
ADC instruction. The difference is that negative numbers, like -1, are 
represented by the two's complement which, for - 1, is $FF. There is a limit 
for signed numbers of + or - 127, because the BMI instruction tests the carry 
bit and considers the value negative if it is set. 

If you add $FF to $03, the result is $02. Technically, the operation causes an 
overflow and the carry is set. But this doesn't concern us. With the simplifica- 
tion of our thrust vector addition problem, we can construct a table of velocity 
values for each TROTATE value. 



THRUST VECTOR 








1 


2 


3 


4 


5 


6 


7 


XT 


00 


01 


01 


01 


00 


FF 


FF 


FF 


YT 


FF 


FF 


00 


01 


01 


01 


00 


FF 



The thrust in this example is not cumulative. If the thrust button is on or 
pressed, the ship moves; if off, it stops. The ship drives like a car rather than 
floats, like it would in zero-gravity space. This is shown in the following: 

XS = XS + XT and YS = YS +YT 

where XS & YS is the ship's current position and XT & YT are the ship's 
velocity vector components. 

With XT and YT both a function of TROTATE, the equations become: 
XS = XS + XT(TROTATE) and YS = YS + YT(TROTATE) 

Thus, we can use table lookup to access the correct thrust for any ship direc- 
tion. 
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LDX TROTATE 
CLC 

LDA XT,X ;GET X THRUST VECTOR FOR TROTATE VALUE 

ADC XS ; ADD TO X POSITION 

STA XS ; STORE NEW VALUE 



Now that the ship can be moved around the screen by both steering and 
thrusting, several tests must be implemented at the screen boundaries. Our 
Apple screen is 40 bytes wide by 24 subgroups deep. To index beyond the end 
of our tables would create unforeseen graphics, especially at the bottom of the 
screen . 

XS can be tested for values greater than 39 and less than 0. In our case, with 
a ship moving only one position per frame, the test for less than would be 
equal to the value FF or - 1 . If wrap-a-round is needed for an object leaving 
the right side of the screen, just set XS = and it will reenter on the left. 
Likewise, setting XS = 39 works for objects leaving the left side of the screen. 
If the wrap-a-round effect is not desired, it requires setting XS = 39 for any at- 
tempt to leave the right side of the screen, and XS = for any attempt to leave 
the left hand side of the screen. Essentially, the ship gets stuck at the edge. The 
boundary conditions at the top and bottom are similar. 

Our drawing setup routine takes the paddle value into consideration to 
obtain the correctly rotated shape from the shape table for plotting. We can 
find the correct lo byte of the shape by the following formula: 



SHPL = SHPLO (TROTATE) 



YREG = 
TROTATE 




1 
2 
3 



$74 



$7C 



$84 



$8C 



$AC 



SHPLO SHAPE TABLES 

$6174 Oth Shape £^ 
$617C 1st Shape <^ 
■>$6184 2nd Shape 



$61AC 7th Shape 



LDY TROTATE 

LDA SHPLO.Y 

STA SHPL 

LDA #>SHAPES 

STA SHPH 



;USE VALUE FOR DIRECTION OF ROTATED SHAPE 
;AS INDEX TO PROPER LO BYTE OF SHAPE 
; STORE LO BYTE POINTER ON ZERO PAGE 
;GET HI BTE OF SHAPE TABLE 
; STORE IN ZERO PAGE 



If the ship were turned so that it was pointing right, then TROTATE = 2 
and SHPLO (2) = $84. This lo byte of the shape table is stored as SHPL. The 
drawing routine will now plot the second shape from our shape table. 

As we mentioned earlier, the ship is being moved eight lines at a time 
vertically to take advantage of plotting the ship within one of the 24 subsections 
on the Hi-Res screen. We can use the eight -line deep plotting routine, which 
was developed in the last chapter, if we don't cross any screen boundaries. This 
also simplifies and shortens our 192 element YVERT tables to two, 24 byte- 
long tables. Each table, one for the hi byte and one for the lo byte, stores the 
line address for the beginning of each of these blocks. The correct starting block 
for plotting our shape is a function of the ship's vertical position, YS (0-23). We 
index into the tables as before, using the Y register. 



LDY YS 

LDA YBLOCKL , Y 

STA HIRESL 

LDA YBLOCKH , Y 

STA HIRESH 



; SHIP'S VERTICAL 
;L00K UP LO BYTE 

;L00K UP HI BYTE 



POSITION (0-23) 
ADDRESS OF LINE 

ADDRESS OF LINE 



Moving a space ship about the screen by paddle control is actually a simple 
case in the overall design of a game. One XDRAWs (erases) the ship at the old 
position, reads the paddle controller, calculates the ship's new position, and 
plots it at its new position. This is performed for each animation frame in an 
endless loop. Because the code is rather short, a considerable delay is needed to 
slow down the animation frame rate. With very short delays in the monitor 
delay subroutine, the frame rate exceeds the 30 frame-per-second scan rate of 
the television. The ship appears to blink at random during its movement. The 
television hasn't finished drawing the first animation cycle while you moved 
your ship two or three times in between. A longer delay, wherein the WAIT 
subroutine has a value of $C0 to $FF in the Accumulator, works fine. The flow 
chart of this steerable rocket program is shown below. 
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INITILIZE POSITION 



DRAW SETUP 



DRAW ON SCREEN 



DRAW SETUP 



XDRAW ROCKET AT 
OLD POSITION 



READ PADDLE 



TROTATE=PADDLE/32 



IS BUTTON ON? 



no 



yes 



CALCULATE NEW XS.YS 
FROM THRUST 



DRAW SETUP 



DRAW ROCKET AT 
NEW POSITION 



DELAY 



XS = XS + XT (TROT ATE) 



no 



IS XS > 39? 



yes 



XS = 



IS XS < 0? 



no 



yes 



XS = 39 



YS = YS + YT(TROTATE) 



IS XS > 24? 



yes 



no 



XS = 



IS XS < 0? 

yes 



XS = 24 



no 
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TROTATE 
(0-7) 



PADDLE DIRECTION 
THRUST VECTOR 








1 


2 


3 


4 


5 


6 


7 


XT 


00 


01 


01 


01 


00 


FF 


FF 


FF 


YT 


FF 


FF 


00 


01 


01 


01 


00 


FF 



DRAWING SETUP 



LOOKUP LO BYTE OF LINE TO PLOT 
HIRESL = YBLOCKL (YS) 






LOOKUP HI BYTE ( 
IRESH = YI 


)F LINE TO PLOT 
3L0CKH (YS) 



LOOKUP LO BYTE LOCATION OF SHAPE TABLE 
SHPL = SHPLO (TROTATE) 



LOOKUP 


HI 


BYTE 


OF 


TABLE 


SHPH = 


HI 


BYTE 


OF 


SHAPES 



1 

2 

6000: AC 09 60 3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



6009: 


AD 50 


CO 


1 fi 


600C: 


AD 52 


rn 


1 7 
1 / 


600F: 


AD 57 




1 ft 


6012: 




fil 


1 Q 








?n 


6015: 


AQ 1 L 




91 


6017: 


8D 03 


fin 




601A: 


A9 OA 




9? 


601C: 


8D 04 


60 


24 


601F: 


A9 00 




25 


6021: 


8D 07 


60 


26 


6024: 


20 F6 


60 


27 


6027: 


20 CF 


60 


28 








9Q 


60 2A: 


20 F6 


60 


30 


602D: 


20 CF 


fin 




6030: 


A2 01 




^9 


6032: 




r d 


JJ 


6035: 


rn 




J** 








JD 


6039: 


AO F8 




JO 


603B: 


sr n^ 


fin 


^7 


603E: 


98 




JO 


603F: 


CD 07 


fin 




6042: 


BO IB 




An 


6044: 


AD 07 


60 


41 


6047 i 


38 




42 


6048: 


E9 05 




43 


604A: 


BO 05 




44 


604C: 


A9 00 




45 


604E: 


8D 07 


60 


46 


6051: 


CD 05 


60 


47 


6054: 


BO 03 




48 


6056: 


AD 05 


60 


49 


6059: 


8D 07 


60 


50 


605C: 


4C 72 


60 


51 


605F: 


CD 07 


60 


52 


6062: 


FO OB 




53 


6064: 


AD 07 


60 


54 


6067: 


18 




55 


6068: 


69 05 




56 


606A: 


CD 05 


60 


57 


606D: 


90 03 




58 


606F: 


AD 05 


60 


59 


6072: 


8D 07 


60 


60 



*R0CKET (DRIVES LIKE CAR) 





ORG 






JMP 


prot. 


xs 


DS 




YS 


DS 




PDL 


DS 




LNGH 


DS 


, 


ROTATE 


DS 


j 


TR0TATE 


DS 


j 


HIRESL 


EQU 


$FB 


HIRESH 


EQU 


HIRES L+$l 


SHPL 


EQU 


$FD 


SHPH 


EQU 


SHPL+$1 


PREAD 


EQU 


$FB1E 


* ENTER HERE FIRST TIME ACCESS 


PROG 


LDA 


$C050 




LDA 


$C052 




LDA 


$C057 




JSR 


CLRSCR 



*INITILIZE ROCKET'S STARTING POSITION 

LDA #$14 

STA XS 

LDA #$0A 

STA YS 

LDA #$00 

STA ROTATE 

JSR DSETUP 

JSR DRAW 
* PADDLE READ 

START JSR DSETUP 

JSR DRAW 

LDX #$01 

JSR PREAD 

CPY #$F9 

BLT SKIPP 

LDY #$F8 

SKIPP STY PDL 

TYA 

CMP ROTATE 

BGE PADDLE3 

LDA ROTATE 
SEC 

SBC #$05 

BGE PADDLE1 

LDA #$00 

STA ROTATE 

PADDLE 1 CMP PDL 

BGE PADDLE2 

LDA PDL 

PADDLE2 STA ROTATE 

JMP PADDLE5 

PADDLE3 CMP ROTATE 

BEQ PADDLE4 

LDA ROTATE 

CLC 

ADC #$05 

CMP PDL 

BLT PADDLE5 

PADDLE4 LDA PDL 

PADDLE5 STA ROTATE 



;DRAW INITIAL POSITION ROCKET 
; ERASE ROCKET 
;CLIP VALUE (0-250) 

; PADDLE< ROTATE POS THEN SUBTRACT 5 

;MAKE SURE =>0 

; DON'T WANT TO GO PAST PADDLE POS 
; PADDLE>ROTATE POS THEN ADD 5 
; DON'T WANT TO GO PAST PADDLE POS 



6075: 


4A 






61 




LSR 




; DIVIDE BY 32 TO GET ROTATION ( 


6076: 


4A 






62 




LSR 




6077: 


4A 






63 




LSR 






6078: 


4A 






64 




LSR 






ou/v: 


4A 






65 




LSR 






607 A: 


8D 


08 


60 


66 
67 




STA 


TROTATE 




607D: 


AD 


62 


CO 


68 




LDA 


$C062 


;NEG IF BUTTON PRESSED 


6080: 


30 


03 




69 




BMI 


THRUST 


Ansa o • 




UJ 


60 


70 




JMP 


NOTHRUST 




ouoo : 


AE 


08 


60 


71 


THRUST 


LDX 


TROTATE 




6088: 


18 






72 




CLC 






6089: 


BD 


5D 


61 


73 




LDA 


XT,X 


,GET X THRUST VECTOR 


608C: 


6D 03 


60 


74 




ADC 


XS 


; ADD TO X POSITION 


608F: 


C9 


28 




75 




CMP 


#$28 


■CHECK IF OFF SCREEN RT 


6091: 


DO 


08 




76 




BNE 


NWRAP1 


O.K. 


6093: 


A9 


00 




77 




LDA 


#$00 


NO! THEN WRAP-A-ROUND 


6095: 


8D 


03 


60 


78 




STA 


XS 


6098: 


4C 


A4 


60 


79 




JMP 


NOWY 




609B: 


C9 


FF 




80 


NWRAP1 


CMP 


#$FF 


LESS THAN 0? (-1) 


609D: 


DO 


02 




81 




BNE 


NWRAP2 


O.K. 


609F: 


A9 


27 




82 




LDA 


#$27 


NO! THEN WRAP-A-ROUND 


60A1 : 


8D 


03 


60 


83 


NWRAP2 


STA 


XS 




60A4: 


18 






84 


NOWY 


CLC 






60A5: 


BD 


65 


61 


85 




LDA 


YT,X 


GET Y THRUST VECTOR 


60A8: 


6D 


04 


60 


86 




ADC 


YS 


ADD TO Y POSITION 


60AB: 


C9 


18 




87 




CMP 


#$18 


CHECK IF OFF SCREEN BOTTOM 


60AD: 


DO 


08 




88 




BNE 


NWRAP3 


O.K. 


60AF: 


A9 


00 




89 




LDA 


#$00 


NO! THEN WRAP-A-ROUND 


60B1: 


8D 


04 


60 


90 




STA 


YS 




60B4: 


4C 


CO 


60 


91 




JMP 


NOTHRUST 




60B7: 


C9 


FF 




92 


NWRAP3 


CMP 


#$FF 


LESS THAN 0? (-1) 


60B9: 


DO 


02 




93 




BNE 


NWRAP4 


O.K. 


60BB: 


A9 


17 




94 




LDA 


#$17 


NO! THEN WRAP-A-ROUND 


60BD: 


8D 


04 


60 


95 


NWRAP4 


STA 


YS 




60C0: 


EA 






96 
97 


NOTHRUST 


NOP 






60C1: 


20 


F6 


60 


98 




JSR 


DSETUP 




60C4: 


20 


CF 


60 


99 




JSR 


DRAW ;DRAW ROCKET 


60C7: 


A9 


70 




100 




LDA 


#$70 




60C9: 


20 


A8 


FC 


101 




JSR 


$FCA8 ; 


SHORT DELAY 


60CC: 


4C 


2A 


60 


102 




JMP 


START 












103 


*SUBROUTINE TO DRAW ROCKET 1 BYTE BY 8 ROWS 


60CF: 


A2 


00 




104 


DRAW 


LDX 


#$00 




60D1: 


A9 


01 




105 




LDA 


#$01 




60D3: 


8D 06 


60 


106 




STA 


LNGH 




60D6: 


Al 


FD 




107 


DRAW 2 


LDA 


(SHPL.X) :GET BYTE FROM SHAPE TABLE 


60D8: 


51 


FB 




108 




EOR 


(HIRESL) , Y 




60DA: 


91 


FB 




109 




STA 


(HIRESL) , Y ;PUT ON HIRES SCREEN 


60DC: 


A5 


FC 




110 




LDA 


HIRESH 




60DE: 


18 






111 




CLC 






60DF: 


69 


04 




112 




ADC 


#$04 ;THIS GETS TO NEXT ROW IN BLOCK 


60E1: 


85 


FC 




113 




STA 


HIRESH 




60E3: 


E6 


FD 




114 




INC 


SHPL ;NEXT BYTE OF SHAPE TABLE 


60E5: 


C9 


40 




115 




CMP 


#$40 ; 


ARE WE FINISHED WITH 8 ROWS 


60E7: 


90 


ED 




116 




BCC 


DRAW2 ;N0 DO NEXT BYTE 


60E9: 


E9 


20 




117 




SBC 


#$20 ; RETURN TO TOP ROW 


60EB: 


85 


FC 




118 




STA 


HIRESH 




60ED: 


CE 


06 


60 


119 




DEC 


LNGH 




60F0: 


FO 


03 




120 




BEQ 


DRAW3 ; FINISHED? 



60F2: 


C8 






121 


60F3: 


DO 


El 




122 


60F5: 


60 






123 
124 


60F6: 


AC 


04 


60 


125 


60F9: 


B9 


45 


61 


126 


60FC: 


85 


FB 




127 


60FE: 


B9 


2D 


61 


128 


6101: 


85 


FC 




129 


6103: 


AC 


08 


60 


130 


6106: 


B9 


6D 


61 


131 


6109: 


85 


FD 




132 


610B: 


A9 


61 




133 


610D: 


85 


FE 




134 


610F: 


AC 


03 


60 


135 


6112: 


60 






136 
137 


6113: 


A9 


00 




138 


6115: 


85 


FB 




139 


6117: 


A9 


20 




140 


6119: 


85 


FC 




141 


611B: 


AO 


00 




142 


611D: 


A9 


00 




143 


611F: 


91 


FB 




144 


6121: 


C8 






145 


6122: 


DO 


FB 




146 


6124: 


E6 


FC 




147 


6126: 


A5 


FC 




148 


6128: 


C9 


40 




149 


612A: 


90 


EF 




150 


61 2C: 


60 






151 
152 


612D: 


20 


20 


21 




6130: 


21 


22 


22 




6133: 


23 


23 


20 




6136: 


20 






153 


6137: 


21 


21 


22 




613A: 


22 


23 


23 




613D: 


20 


20 


21 




6140: 


21 






154 


6141: 


22 


22 


23 




6144: 


23 






155 


6145: 


00 


80 


00 




6148: 


80 


00 


80 




614B: 


00 


80 


28 




614E: 


A8 






156 


614F: 


28 


A8 


28 




6152: 


A8 


28 


A8 




6155: 


50 


DO 


50 




6158: 


DO 






157 


6159: 


50 


DO 


50 




615C: 


DO 






158 
159 


61 5D: 


00 


01 


01 




6160: 


01 


00 


FF 




6163: 


FF 


FF 




160 


6165: 


FF 


FF 


00 




6168: 


01 


01 


01 




616B: 


00 


FF 
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INY ; NEXT COLUMN OF 8 ROWS 

BNE DRAW 2 
DRAW3 RTS 

*DRAWING SETUP SUBROUTINE 

DSETUP LDY YS ;SHIP'S VERTICAL POS (0-23) 

LDA YBLOCKL.Y ;L00K UP LO BYTE OF LINE 

STA HIRESL 

LDA YBLOCKH , Y ;LOOK UP HI BYTE OF LINE 

STA HIRESH 

LDY TROTATE 

LDA SHPLO.Y 

STA SHPL 

LDA #>SHAPES 

STA SHPH 

LDY XS ; DISPLACEMENT INTO LINE 

RTS 

*CLEAR SCREEN SUBROUTINE 

CLRSCR LDA #$00 

STA HIRESL 

LDA #$20 

STA HIRESH 

CLR1 LDY #$00 

LDA #$00 

CLR2 STA (HIRESL), Y 

INY 

BNE CLR2 

INC HIRESH 

LDA HIRESH 

CMP #$40 

BCC CLR1 
RTS 

♦TABLES OF STARTING VALUE OF EACH OF 24 BLOCKS 



YBLOCKH HEX 20202121222223232020 



HEX 21212222232320202121 
HEX 22222323 



YBLOCKL HEX 008000800080008028A8 



HEX 28A828A828A850D050D0 



HEX 50D050D0 
♦TABLES OF DIRECTION VECTORS FOR 8 ROTATION VALUES 



XT HEX 0001010100FFFFFF 



YT HEX FFFF0001010100FF 
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♦GENERATE SHPLO TABLE 










163 


*( INDEX TO LO BYTE OF EACH ROCKET 


616D: 


75 






164 


SHPLO 


DFB 


SHAPES 


616E: 


7D 






165 




DFB 


SHAPES+$08 


616F: 


85 






166 




DFB 


SHAPES+$10 


6170: 


8D 






167 




DFB 


SHAPES+$18 


6171: 


95 






168 




DB 


SHAPES+$20 


6172: 


9D 






169 




DFB 


SHAPES+$28 


6173: 


A5 






170 




DFB 


SHAPES+$30 


6174: 


AD 






171 
172 


* 


DFB 


SHAPES+$38 










173 


•ROCKET 


SHAPES 


6175: 


00 


08 


08 










6178: 


08 


1C 


1C 










617B: 


36 


00 




174 
175 


SHAPES 
*2ND 


HEX 


000808081C1C3600 


617D: 


00 


00 


20 










6180: 


14 


OF 


1C 










6183: 


08 


08 




176 
177 


♦3RD 


HEX 


000020140F1C0808 


6185: 


00 


00 


02 










6188: 


0E 


7C 


OE 










618B: 


02 


00 




178 
179 


*4TH 


HEX 


OOOOO20E7COEO20O 


618D: 


00 


08 


08 










6190: 


1C 


OF 


14 










6193: 


20 


00 




180 
181 


*5TH 


MCA 


UUUoUoi.L.Ur J.4ZUUU 


6195: 


00 


00 


36 










6198: 


1C 


1C 


08 










619B: 


08 


08 




182 
183 


*6TH 


HEX 


0000361C1C080808 


619D: 


00 


08 


08 










61A0: 


1C 


78 


14 










61A3: 


02 


00 




184 
185 


*7TH 


HEX 


0008081C78140200 


61A5: 


00 


00 


20 










61A8: 


38 


IF 


38 










61AB: 


20 


00 




186 
187 


*8TH 


HEX 


0OOO203S5F382O0O 


61AD: 


00 


00 


02 










61B0: 


14 


78 


1C 










61B3: 


08 


08 




188 




HEX 


00000214781C0808 



— END ASSEMBLY— 437 BYTES 
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STEERABLE & FREE FLOATING 



Objects in the real world, once started in motion, tend to remain in motion. 
Isaac Newton stated it more formally in his first law of motion. Objects remain 
at rest or in motion along a straight line unless a force is applied on them to 
change that motion. The force in most games is thrust. 

In the last section, we dealt with a spaceship that had a velocity only when 
thrust was applied to it. We avoided any sustained velocity by zeroing our 
velocity vector when there was no thrust. Normally, the equations for deter- 
mining the velocity and position of an object in motion are as follows ( They 
were discussed briefly under the section on bullets and bomb drops.): 



Vnew = Vold + a V a V = CHANGE IN VELOCITY 
Dnew = Dold + a D a D = CHANGE IN POSITION 

OVER AN ANIMATION 
FRAME DUE 

OR TO VELOCITY 

Dnew = Dold + Vnew 



This breaks down into components in the X and Y directions. 
VXnew = VXOLD + A VX 



VYnew =VYold + aVY 

Xnew = Xold + VX 
Ynew = Yold + VY 



Now, when an object is thrusted in any direction, the increase in velocity is 
cumulative. For example, if thrust were applied in the positive X direction with 
a force of 1 unit/ frame, the new VX would increase from zero by units of one 
for each animation frame. 



CYCLE VX X CYCLE VY Y 



111 122 

VX = 1 2 2 3 similarly VY = 2 2 4 6 

3 3 6 3 6 12 

4 4 10 4 8 20 



It becomes clear from our example that if you accelerate for too many anima- 
tion frames, the space ship will be moving fairly fast. While the amount of 
relative movement depends on your choice of scale, the ship moves to the left or 
right seven pixels for every unit change instead of by individual pixels. If, by 
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the fourth frame, our velocity were 4 units/frame, we would actually be moving 
28 pixels horizontally per frame. With a slow program, framing at 10 frames/ 
second, the ship would move entirely across the screen in 1 second. More 
likely, with faster animation, it would take less than half a second. This may be 
too fast. 

A speed brake can be incorporated into the algorithm to prevent the velocity 
from exceeding a preset value. This would be analogous to wind resistance on a 
fast moving automobile. It prevents a vehicle from reaching ever-increasing 
speeds. I chose a maximum velocity of 2 units/ frame. It was an arbitrary 
choice based on keeping the animation smooth. Discontinuous jumps at higher 
velocities produced degraded animation. The brake is placed just after the 
velocity equations. If the value of VX or VY exceeds 2 units/frame, it is 
trimmed back to 2 units/frame. 



VX = VX + XT (TROTATE) 



IS VX = 3? 



I 



no 



yes 



SET VX = 2 



IS VX = FD (or -3)? 



no 



I 



yes 



SET VX = FE (or -2) 



XS = XS + VX 



The flow chart, as shown for the X direction (horizontal), is relatively 
straight-forward. Again, the velocity vector is a function of the ship's paddle- 
controlled direction. 

The paddle control in the non-free-floating ship was restrictive. It prevented 
you from directly reaching the straight-up position (0) from a position pointing 
upwards and to the left (7). When the paddle's value was divided by 32, giving 
TROTATE values 0-7, it lacked wrap-a-round capability. It would be better 
to be able to turn the ship nearly twice around with one twist of the paddle. 
This is accomplished by dividing the paddle reading by 16. This gives 
TROTATE values 0-15. 
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0&8 



7&15 



6&14 




2&12 



TROTATE 
(0-15) 



3&11 



5&13 

4&12 

PADDLE DIRECTION 



THRUST VECTOR 








1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


XT 


01 


01 


01 


01 


00 


FF 


FF 


FF 


00 


01 


01 


01 


00 


FF 


FF 


FF 


YT 


FF 


FF 


00 


01 


01 


01 


00 


FF 


FF 


FF 


00 


01 


01 


01 


00 


FF 



Since the proper shape is drawn from the correct section of the shape table by 
setting the appropriate lo and hi byte pointers for that shape, the index to these 
pointers must be corrected for the extra number of rotation angles. With 
TROTATE doubled to 16 values, the SHPLO table, which contains the 16 
pointers to each shape, must also contain 16 values. Since TROTATE values 
are duplicated after 8 values, the SHPLO table, as well as the XT and YT 
tables, are duplicated after eight values. 

Except for the changes discussed above, the steerable and free-floating ship 
routine is much like the former routine, in which the ship drives around like a 
car. The flow chart and code are shown below. It might be instructive to 
change the delay in line #129 to a small value like $05 to see what happens 
when the animation frame rate exceeds the television's scan rate. 
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no 



BUTTON PRESSED? 



yes 



VX = VX + XT(TROTATE) 



no 



IS VX=3? 



yes 



SET VX = 2 



_no_ 



IS VX = FD (or -3)? 



yes 



SET VX = FE (or -2) 



VY=VY + YT(TROTATE) 



no 



IS VY = 3? 



yes 



SET VY = 2 



no 



IS VY = FD? (or -3)? 



yes 



SET VY = FE (or -2) 



XS = XS + VX 



IS XS > 39? 



no 



yes 



XS = XS - 40 
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j no 



IS XS < ? 




|yes 


XS = XS + AO 













YS = YS + VY 



no 



IS YS 


> 23? 




} 


yes 




YS = YS - 24 













t no 


IS YS < ? 




yes 




YS = YS + 24 













l 


•ROCKET 


(FREE 


FLOATING) 


2 




ORG 


$6000 


3 




JMP 


PROG 


4 


XS 


DS 




5 


YS 


DS 




6 


VX 


DS 




7 


VY 


DS 




8 


PDL 


DS 




9 


LNGH 


DS 




10 


ROTATE 


DS 




11 


TROTATE 


DS 




12 


HIRESL 


EQU 


$FB 


13 


HIRESH 


EQU 


HIRESL+$1 


14 


SHPL 


EQU 


$FD 


15 


SHPH 


EQU 


SHPL+$1 


16 


PREAD 


EQU 


$FB1E 


17 


♦ENTER 


HERE FIRST TIME ACCESS 



600B: 


AD 50 


CO 


18 


PROG LDA $C050 


600E: 


AD 52 


CO 


19 


LDA $C052 


6011: 


AD 57 


CO 


20 


LDA $C057 


6014: 


20 49 


61 


21 


JSR CLRSCR 








22 


*INITILIZE ROCKET'S STARTING 


6017: 


A9 14 




23 


LDA #$14 


6019: 


8D 03 


60 


24 


STA XS 


601C: 


A9 OA 




25 


LDA #$0A 



601E: 


8D 


04 


60 


26 




STA 


YS 


6021: 


A9 


00 




27 




LDA 


#$00 


6023: 


8D 


05 


60 


28 




STA 


VX 


6026: 


8D 


06 


60 


29 




STA 


VY 


6029: 


8D 


09 


60 


30 




STA 


ROTATE 


602C: 


20 


2C 


61 


31 




JSR 


DSETUP 


602F: 


20 


05 


61 


32 




JSR 


DRAW 










33 


* PADDLE 


READ 




6032: 


20 


2C 


61 


34 


START 


JSR 


DSETUP 


6035: 


20 


05 


61 


35 




JSR 


DRAW 


6038: 


A2 


01 




36 




LDX 


#$01 


603A: 


20 


IE 


FB 


37 




JSR 


PREAD 


603D: 


CO 


F9 




38 




CPY 


#$F9 


603F: 


90 


02 




39 




BLT 


SKIPP 


6041: 


AO 


F8 




40 




LDY 


#$F8 


6043: 


8C 


07 


60 


41 


SKIPP 


STY 


PDL 


6046: 


98 






42 




TYA 




6047: 


CD 


09 


60 


43 




CMP 


ROTATE 


604A: 


BO 


IB 




44 




BGE 


PADDLE3 


604C: 


AD 


09 


60 


45 




LDA 


ROTATE 


604F: 


38 






46 




SEC 




6050: 


E9 


05 




47 




SBC 


#$05 


6052: 


BO 


05 




48 




BGE 


PADDLE1 


6054: 


A9 


00 




49 




LDA 


#$00 


6056: 


8D 


09 


60 


50 




STA 


ROTATE 


6059: 


CD 


07 


60 


51 


PADDLE1 


CMP 


PDL 


60 5C: 


BO 


03 




52 




BGE 


PADDLE2 


605E: 


AD 


07 


60 


53 




LDA 


PDL 


6061: 


8D 


09 


60 


54 


PADDLE2 


STA 


ROTATE 


6064: 


4C 


7A 


60 


55 




JMP 


PADDLES 


6067: 


CD 


09 


60 


56 


PADDLE3 


CMP 


ROTATE 


606A: 


FO 


OB 




57 




BEQ 


PADDLE4 


606C: 


AD 


09 


60 


58 




LDA 


ROTATE 


606F: 


18 






59 




CLC 




6070: 


69 


05 




60 




ADC 


#$05 


6072: 


CD 


07 


60 


61 




CMP 


PDL 


6075: 


90 


03 




62 




BLT 


PADDLE5 


6077: 


AD 


07 


60 


63 


PADDLE4 


LDA 


PDL 


607A: 


8D 


09 


60 


64 


PADDLE5 


STA 


ROTATE 


607D: 


4A 






65 




LSR 




607E: 


4A 






66 




LSR 




607F: 


4A 






67 




LSR 




6080: 


4A 






68 




LSR 




6081: 


8D 


OA 


60 


69 




STA 


TROTATE 










70 








6084: 


AD 


62 


CO 


71 




LDA 


$C062 


6087: 


30 


03 




72 




BMI 


THRUST 


6089: 


4C 


CI 


60 


73 




JMP 


NOTHRUST 


608C: 


AE 


OA 


60 


74 


THRUST 


LDX 


TROTATE 










75 


♦UPDATE 


VELOCITY VX AND 


608F: 


18 






76 




CLC 




6090: 


BD 


93 


61 


77 




LDA 


XT,X 


6093: 


6D 


05 


60 


78 




ADC 


VX 


6096: 


C9 


FD 




79 




CMP 


#$FD 


6098: 


DO 


05 




80 




BNE 


NOCLIP 


609A: 


A9 


FE 




81 




LDA 


#$FE 


609C: 


4C 


A5 


60 


82 




JMP 


N0CLIP1 


609F: 


C9 


03 




83 


NOCLIP 


CMP 


#$03 


60A1: 


DO 


02 




84 




BNE 


NOCLIP 1 


60A3: 


A9 


02 




85 




LDA 


#$02 



;CLIP VALUE (0-250) 



;PADDLE<ROTATE POS THEN SUBTRACT 5 



;MAKE SURE =>0 



; DON'T WANT TO GO PAST PADDLE POS 



;PADDLE>R0TATE POS THEN ADD 5 



; DON'T WANT TO GO PAST PADDLE POS 



;DIVIDE BY 16 TO GET R0TATI0N(0-15) 
;-(0R TWO ROATIONS AROUND) 



;NEG IF BUTTON PRESSED 



VY 



;GET X THRUST VECTOR 



;CLIP MAX VELOCITY AT 2 



200 



AAA C a 


oV 


nc 
05 




OO 


Mnpr T D 1 

NULLlr 1 


CTA 
bl A 


vx 


;blUKh A VhLUCili 


dUAo: 


lo 






O / 




CLC 






o(JA9 : 


DU 


A O 

A3 


Al 
Dl 


OO 
OO 




LDA 


YT,X 




dual: 


Ar* 


nA 
U6 


An 
6U 


on 
OV 




ADC 


VY 




OUAr I 


CO 


un 

r v 




on 

yV 




pun 


f ?>rD 




dudI : 


uv 


fir 








BNE 


NOCLlrz 




DUD J ; 


AQ 


FT? 
r c 




Q9 
yL 




i rtA 






dud j : 


AC 




An 

ou 


yj 




Jnr 


NULLlr J 




dudo: 


r*o 
VI 


U3 




o/. 
yn 


MAPI TTDO 


pun 


#$03 


. pt Trj M A V PPTTV AT 1 1 

;CLIr MAX VtLOClli Al 1 


ADDA • 

ouda: 


vu 


m 
U2 




93 




BNE 


M/"VT TIM 




UUDVj • 


AQ 










LDA 


JFCpUZ 




60BE: 


8D 


06 


60 


97 


N0CLIP3 


STA 


VY 


• STORF Y VFI OCTTY 

1 Jl \Ji\ Hi 1 V J_jI_»WVj ±11 










98 


^UPDATE 


SHIP' 




XS 


60C1 : 


18 






QQ 

"7 


N0THRUST CLC 








AD 


05 


60 


i no 

lUU 




LDA 


VY 
V A 




60C5: 


6D 


03 


60 


101 




ADC 


xs 




60C8: 


C9 


E0 




102 




CMP 


#$E0 


; CHECK FOR WRAPAROUND LEFT 


60CA: 


90 


06 




103 




BLT 


NWRAP1 




60CC: 


18 






104 




CLC 






60CD: 


69 


28 




105 




ADC 


#$28 


;FIX BY ADDING 40 


DULr : 


4C 


D9 


60 


106 




JMP 


NWRAP2 




60D2 : 


C9 


28 




107 


NWRAP1 


CMP 


#$28 


;CHECK FOR WRAPAROUND RIGHT 


60D4: 


90 


03 




108 




BLT 


NWRAP2 




60D6: 


38 






109 




SEC 






60D7: 


E9 


28 




1 10 




SBC 


#$28 


;FIX BY SUBTRACTING 40 


60D9: 


8D 


03 


60 


111 


NWRAP2 


STA 


XS 


; STORE SHIP'S NEW X P0S 










112 


^UPDATE 


SHIP'S Y POSITION 


YS 


60DC: 


18 






113 




CLC 






60DD: 


AD 


06 


60 


114 




LDA 


VY 




60E0: 


6D 


04 


60 


115 




ADC 


YS 




60E3: 


C9 


E0 




1 16 




CMP 


#$E0 


; CHECK FOR WRAPAROUND TOP 


60E5: 


90 


06 




117 




BLT 


NWRAP3 




60E7: 


18 






1 18 




CLC 






60E8: 


69 


18 




119 




ADC 


#$18 


;FIX BY ADDING 24 


60EA: 


4C 


F4 


60 


120 




JMP 


NWRAP4 




60ED: 


C9 


18 




121 


NWRAP3 


CMP 


#$18 


CHECK FOR WRAPAROUND BOTTOM 


60EF: 


90 


03 




122 




BLT 


NWRAP4 




60F1: 


38 






123 




SEC 






60F2: 


E9 


18 




124 




SBC 


#$18 


; FIX BY SUBTRACTING 24 


60F4: 


8D 


04 


60 


125 
126 


NWRAP4 


STA 


YS 


; STORE NEW Y POSITION 


60F7: 


20 


2C 


61 


127 




JSR 


DSETUP 




60FA: 


20 


05 


61 


128 




JSR 


DRAW 




60FD: 


A9 


CO 




129 




LDA 


#$C0 




60FF: 


20 


A8 


FC 


130 




JSR 


$FCA8 


; SHORT DELAY 


6102: 


4C 


32 


60 


131 




JMP 


START 












132 


♦SUBROUTINE TO DRAW ROCKET 1 BYTEBY 8 ROWS 


6105: 


A2 


00 




133 


DRAW 


LDX 


#$00 




6107: 


A9 


01 




134 




LDA 


#$01 




6109: 


8D 


08 


60 


135 




STA 


LNGH 




610C: 


Al 


FD 




136 


DRAW2 


LDA 


(SHPL.X) 


;GET BYTE FROM SHAPE TABLE 


61 0E: 


51 


FB 




137 




E0R 


(HIRESL) , Y 




6110: 


91 


FB 




138 




STA 


(HIRESL) , Y 


;PUT ON HIRES SCREEN 


6112: 


A5 


FC 




139 




LDA 


HIRESH 




6114: 


18 






140 




CLC 






Al 1 ^« 


AO 


n/, 




141 




ADC 


#$04 


;THIS GETS TO NEXT ROW IN BLOCK 


6117: 


85 


FC 




142 




STA 


HIRESH 




6119: 


E6 


FD 




143 




INC 


SHPL 


;NEXT BYTE OF SHAPE TABLE 


611B: 


C9 


40 




144 




CMP 


#$40 


;ARE WE FINISHED WITH 8 ROWS 


611D: 


90 


ED 




145 




BCC 


DRAW2 


;N0 DO NEXT BYTE 



61 IF: E9 20 146 SBC #$20 ; RETURN TO TOP ROW 

6121: 85 FC 147 STA HIRESH 

6123: CE 08 60 148 DEC LNGH 

6126: FO 03 149 BEQ DRAW3 ; FINISHED? 

6128: C8 150 INY ;NEXT COLUMN OF 8 ROWS 

6129: DO El 151 BNE DRAW2 

612B: 60 152 DRAW3 RTS 

153 *DRAWING SETUP SUBROUTINE 

612C: AC 04 60 154 DSETUP LDY YS 

612F: B9 7B 61 155 LDA YBLOCKL.Y ;LOOK UP LO BYTE OF LINE 

6132: 85 FB 156 STA HIRESL 

6134: B9 63 61 157 LDA YBLOCKH.Y 

6137: 85 FC 158 STA HIRESH 

6139: AC OA 60 159 LDY TROT ATE 

613C: B9 B3 61 160 LDA SHPLO.Y 

613F: 85 FD 161 STA SHPL 

6141: A9 62 162 LDA #>SHAPES 

6143: 85 FE 163 STA SHPH 

6145: AC 03 60 164 LDY XS ; DISPLACEMENT INTO LINE 

6148: 60 165 RTS 

166 *CLEAR SCREEN SUBROUTINE 

6149: A9 00 167 CLRSCR LDA #$00 

614B: 85 FB 168 STA HIRESL 

614D: A9 20 169 LDA #$20 

614F: 85 FC 170 STA HIRESH 

6151: AO 00 171 CLR1 LDY #$00 

6153: A9 00 172 LDA #$00 

6155: 91 FB 173 CLR2 STA (HIRESL) ,Y 

6157: C8 174 INY 

6158: DO FB 175 BNE CLR2 

61 5A: E6 FC 176 INC HIRESH 

615C: A5 FC 177 LDA HIRESH 

61 5E: C9 40 178 CMP #$40 

6160: 90 EF 179 BCC CLR1 

6162: 60 180 RTS 

181 *TABLES OF STARTING VALUE OF EACH OF 20 BLOCKS 

6163: 20 20 21 
6166: 21 22 22 
6169: 23 23 20 

616C: 20 182 Y BLOCK H HEX 20202121222223232020 
616D: 21 21 22 
6170: 22 23 23 
6173: 20 20 21 

6176: 21 183 HEX 21212222232320202121 
6177: 22 22 23 

617A: 23 184 HEX 22222323 
617B: 00 80 00 
617E: 80 00 80 
6181: 00 80 28 

6184: A8 185 Y BLOCK L HEX 008000800080008028A8 
6185: 28 A8 28 
6188: A8 28 A8 
618B: 50 DO 50 

618E: DO 186 HEX 28A828A828A850D050D0 
618F: 50 DO 50 

6192: DO 187 HEX 50D050D0 

188 * 

6193: 00 01 01 
6196: 01 00 FF 

6199: FF FF 189 XT HEX 0001 010 100FFFFFF 



202 



619B: 


00 


01 


01 










619E: 


01 


00 


FF 










61A1: 


FF 


FF 




190 




HEX 


vjlaj luiui uur r r r r r 


61A3: 


FF 


FF 


00 










61A6: 


01 


01 


01 










61A9: 


00 


FF 




191 


YT 


HEX 


FFFFOOO 10101 OOFF 


61AB: 


FF 


FF 


00 










61AE: 


01 


01 


01 










61B1: 


00 


FF 




192 
193 


* 


HEX 


FFFF0001010100FF 


61B3: 


13 






194 


SHPLO 


DFB 


SHAPES 


61B4: 


IB 






195 




DFB 


SHAPES+$08 


61B5: 


23 






196 




DFB 


SHAPES+$10 


61B6: 


2B 






197 




DFB 


SHAPES+$18 


61B7: 


33 






198 




DFB 


SHAPES+$20 


61B8: 


3B 






199 




DFB 


SHAPES+$28 


61B9: 


43 






200 




DFB 


SHAPES+$30 


61BA: 


4B 






201 




DFB 


SHAPES+$38 










202 


♦NEXT 


GROUP BECAUSE PADDLE (0-15) 










203 


*INTO 


SHAPE TABLE TWICE 


61BB: 


13 






204 




DFB 


SHAPES 


61BC: 


IB 






205 




DFB 


SHAPES+$08 


61BD: 


23 






206 




DFB 


SHAPES+$10 


61BE: 


2B 






207 




DFB 


SHAPES+$18 


61BF: 


33 






208 




DFB 


SHAPES+$20 


61C0: 


3B 






209 




DFB 


SHAPES+$28 


61C1: 


43 






210 




DFB 


SHAPES+$30 


61C2: 


4B 






211 
212 
213 


* 

SPACE 


DFB 

DS 


SHAPES+$38 
80 










214 


♦ROCKET SHAPES 


6213: 


00 


08 


08 










6216: 


08 


1C 


1C 










6219: 


36 


00 




215 


SHAPES HEX 


000808081C1C3600 










216 


♦2ND 






621B: 


00 


00 


20 










621E: 


14 


OF 


1C 










6221: 


08 


08 




217 
218 


♦3RD 


HEX 


000020140F1C0808 


6223: 


00 


00 


02 










6226: 


0E 


7C 


OE 










6229: 


02 


00 




219 
220 


*4TH 


HEX 


0O0O020E7COE020O 


622B: 


00 


08 


08 










622E: 


1C 


OF 


14 










6231: 


20 


00 




221 
222 


*5TH 


HEX 


0008081COF142000 


6233: 


00 


00 


36 










6236: 


1C 


1C 


08 










6239: 


08 


08 




223 
224 


♦6TH 


HEX 


0000361C1C080808 


623B: 


00 


08 


08 










623E: 


1C 


78 


14 










6241: 


02 


00 




225 
226 


♦7TH 


HEX 


0008081C78140200 


6243: 


00 


00 


20 










6246: 


38 


IF 


38 










6249: 


20 


00 




227 
228 


♦8TH 


HEX 


00002038 1F382000 



624B: 00 00 02 
624E: 14 78 1C 
6251: 08 08 229 



HEX 00000214781C0808 



—END ASSEMBLY— 595 BYTES 



DEBUG PACKAGE 

The debug package that was mentioned earlier is a very useful tool for pro- 
grammers. It allows you to single step animation by stopping the animation 
with the ESC key. Once the ESC key is pressed, the program goes into a tight 
loop while waiting for another key press. Any key except the ESC key will 
release it. But since every key, with the exception of the space bar, fails to clear 
the keyboard strobe, the computer thinks a key has been pressed when it 
encounters the debug subroutine during the next animation frame. Of course, 
if the key last pressed was the ESC, it will be caught in that small loop once 
again, and stop or single step. Yet if it is another key, it won't stop the anima- 
tion, but would proceed to other tests in the package. The space bar would 
release it totally from the subroutine by clearing the keyboard strobe. 



KEY PRESSED? 



yes 



no 



IS ESC KEY? 



no 



yes 



CLEAR STROBE 



IS KEY PRESSED? 



yes 



no 



CLEAR ST0BE 



CLEAR STROBE 



IS SPACE BAR? 



yes 



CLEAR STROBE 




V V 



ignore 
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The debug package is designed so that you can't activate any other debug 
test without first hitting the ESC key. This way, no matter what uses your keys 
have during a game, they can't activate debug functions inadvertently. 



*DEBUG 


PACKAGE TO SINGLE 


STFP 




LiiJi\ 




•KFY PRF99FT)? 




RPT 




•FYTT TP NO VW DDT7CCI?r\ 




CMP 


#$9B 


mT?0/"* T7DVO 

;tbL KEY? 




BNE 


IGNORE 




CAUGHT 


BIT 


$C010 


; CLEAR STROBE 




LDA 


$C000 


;KEY PRESSED? 




BPL 


*-3 


;LOOP BY BRANCHING BACK 3 BYTES 




CMP 


#$A0 


; SPACE KEY? 




BNE 


IGNORE+3 


; NO .DON'T CLEAR STROBE 


IGNORE 


BIT 


$C010 


; CLEAR STROBE 




NOP 







You could expand the code to do other functions if the code is placed at the 
block labeled "other tests". Examples of this would be pressing the K key to 
kill an alien, or the A key to advance to a higher level. This would allow you to 
reach modules in your code that might take considerable playing time to 
achieve without your debug module. 

Another use for this type of code is to insert a user-controlled pause control 
into a game. Pause control has just recently been incorporated into arcade 
games. It is too bad that most programmers hadn't thought of leaving part of 
the debug module in the game before to offer a pause option. 

LASER FIRE & PADDLE BUTTON TRIGGERS 

Paddle button switches are used in many games as triggers to fire rockets, 
bullets and lasers, or to drop bombs. The Apple computer has three; they are 
numbered 0-2. They are accessed through the addresses $C061 to $C063. 

To test if a paddle button is pressed, you load the address for that switch into 
the Accumulator, then test if the value is negative. 

LDA $C061 ;TEST PADDLE #0 

BMI FIRE ; NEGATIVE, THEN BUTTON PRESSED 

NOFIRE JMP CONTINUE 

FIRE JSR LASER ;FIRE LASER 

Game designers often want to limit the amount of ammunition that can be 
fired at one time. A flag can be set to on when a bullet is fired, and to off when 
the bullet either reaches the opposite end of the screen or if it hits something. 
The player can't fire again until the flag is in the off position. 

Laser fire presents another problem. The beam travels from the gun or 
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spaceship to the opposite end of the screen in one frame. If the player held the 
button, the laser would fire for each frame. Essentially; it would always be on. 

The test for a pressed button must include code that would inhibit the button 
being held down continuously. You can accomplish this by setting a flag to 1 
when the laser is fired. If the button is pressed and the laser was just fired 
without the player releasing it first, the test for the flag prevents it from firing 
again. The flag is reset to only if the button isn't pressed. 

We set another flag called SHOT to one if the laser is fired. This is because 
we want to XDRAW the laser much later in the animation cycle. If we 
XDRAW it immediately, it would be barely seen. Yet, if it were automatically 
XDRAWn later without some sort of test, it would always appear, regardless 
of whether it was previously fired or not. The XDRAW laser subroutine tests 
to determine if the SHOT is set before it XDRAWs the laser shot; it will conse- 
quently skip this routine if the laser hasn't been fired. 

Red lasers look more impressive than white lasers. They also require more 
work to plot properly. As usual, our nemesis, the even/ odd color offset pro- 
blem , comes into play. The first position that our laser can be plotted is at 
horizontal offset $0C or 12 decimal. This is on an even offset. 



OFFSET 




LASER 



$AA $D5 



A value of $AA will produce a red line in even offsets, and a $D5 will do so in 
odd offsets. If you plot these two bytes in pairs for $0E (14 decimal) number of 
times, you will produce a red laser beam that extends from the plane to the 
right screen boundary. 

A flow chart of our algorithm and its accompaning code follows: 
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PRESS BUTTON? 



no 



yes 



DID PRESS BUTTON BEFORE? 
IS LFLAG = 1 



jyes 



SET LFLAG=0 



no 



FIRE LASER 
XOR ALTERNATATE 
BYTES AA & D5 
STARTING AT $C OVER 

DO $E TIMES 



SET SHOT = 1 
SET LFLAG = 1 



noshot 



XOR LASER ( X LASER ) 



IS SHOT = 1? 



f yes 



no 



XDRAW LASER 
XOR ALTERNATE 
BYTES AA & D5 
STARTING AT $C OVER 
$E TIMES 



SET SHOT = 



NOTE: Button has to 
be released to reset 
LFLAG = 
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516 


*LASER 


SUBROUTINE 










517 


* 






63D3: 


AD 


62 


CO 


518 


LASER 


LDA 


$C062 


63D6: 


30 


08 




519 




BMI 


FIRE1 


63D8: 


A9 


00 




520 




LDA 


#$00 


63DA: 


8D 


14 


60 


521 




STA 


LFLAG 


63DD: 


4C 


13 


64 


522 




JMP 


NOSHOT 


63E0: 


AD 


14 


60 


523 


FIRE1 


LDA 


LFLAG 


63E3: 


C9 


01 




524 




CMP 


#$01 


63E5: 


BO 


2C 




525 




BGE 
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;NEG IF BUTTON PRESSED 

; BUTTON NOT PRESSED, SET FLAG TO 

;IS BUTTON BEING HELD DOWN? 



SET LASER FIRED FLAG 
SET BUTTON PRESSED FLAG 

TOP OF SHIP 

Y REG CONTAINS VERT. LSER POS. 
START AT HORIZ=$OC 

FIND ADDRESS OF LASER BEAM LINE 
SET UP LOOP FOR E TIMES 
DRAW PAIRS OF AA & D5 BYTES (RED) 
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NEXT SCREEN POSITION 



;NEXT SCREEN POSITION 
; DECREMENT INDEX TO LOOP 
;DONE? 
;YES! EXIT 



;HAS LASER BEEN SHOT? 
;N0! SKIP XDR AWING LASER 



; RESET LASER FIRED FLAG TO OFF 



COLLISIONS 



One of the most important aspects in any arcade game, especially shoot- 'em- 
up type games, is whether an object collides with another object or the 
background. As a particular object is drawn to the screen, (one byte at a time, 
or even by single pixels, as some programmers prefer), you can simultaneously 
test to determine if any other pixels are within that byte's (or pixel's) screen 
location. The test is performed using the AND instruction. 

The truth table for the AND instruction is as follows: 



ACC. MEMORY RESULT 


1 

1 

1 1 1 



Both Accumulator and memory must be on (set) for the result to be on (set). 

If we take a Hi-Res screen memory location that has an object in it and AND 
it with a byte from our shape table, any duplication in any bit location because 
something is already on the screen, will give a non-zero result. 







X 


X 
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X 


X 


X 
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X 
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BACKGROUND 
SHAPE 

AND BACKGROUND WITH SHAPE 
RESULT $18 > ZERO 



The hi bit, (the color control bit), which isn't used to activate any of the 
seven pixel positions within the byte, could cause a problem. It is possible that 
if the hi bit were set in an empty or black background ($80), and a blue or 
orange shape were ANDed against the screen, the result would be non-zero. 
Obviously, this is an invalid result, because you can't collide with a black 
background. The problem can be avoided if the background is first ANDed 
with #$7F to mask the hi bit. 



BOBOBOBHI 

1 BACKGROUND 

11111110 AND #$7F 



00000000 RESULT ZERO 
10 10 11 AND BLUE SHAPE 



00000000 RESULT ZERO 
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Usually, in any game, if a collision is detected, the object is to be removed. 
The first instinct is to stop drawing the object since it is to be removed, 
anyway. But if you are Exclusive-ORing (EORing) the screen and you stop in 
the middle of your shape, you are going to leave a mess. It is much better to set 
a collision flag, finish drawing the shape, then remove the object later by com- 
pletely EORing the shape off the screen. 

Any two objects of byte size or larger will usually have no problem with colli- 
sion detection, especially if the graphics are in B & W. But I can think of a very 
specific case involving color in which a collision would not be detected in a 
game. Take our space ship or plane from Chapter Five. Let us assume it is 
violet. Let's assume a green alien collides with it. The question is: Will it be 
detected, and if not, how can we detect a collision? 

Let's map the pixel positions of the bottom row of bytes for both the violet 
ship and green alien. 
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SHIP 
ALIEN 



It is quite obvious that if you logical AND the two together, you are going to 
obtain zero in all three bytes; in fact, zero over the entire shape. While it is 
quite easy to tell you not to use complementary colors in a game, a red alien, 
which involves turning on the hi byte in its shape table, would also achieve an 
identical result of no collision. Besides, limiting colors hampers your artistic ex- 
pression. 

The solution is to test the ship against screen memory with what is called a 
"mask" of the ship's shape, as if the ship were a solid white. We take this mask 
of the ship, which has both violet and green pixels lit, and AND it against the 
alien occupying the same screen locations. A collision will be detected in this 
case. We set a flag and then take the appropriate byte from the violet ship's 
shape table and XOR it against the screen. 

There is always some order with which objects must be drawn to the screen 
to allow our program to detect collisions properly. In a game with a laser- 
armed ship pitted against several unarmed aliens (our example), something 
must be drawn last. It is that final test that can sometimes get tricky. In many 
games, the user's ship is often the last to be placed on the screen. If a collision is 
detected, you end up wondering which alien hit it. Very often the screen coor- 
dinates of each alien must be compared to that of the ship to determine which 
object was killed. This is sometimes harder to do than it looks. That is why, 
when you collide with an enemy in many games, the enemy is not wiped out 
when the screen refreshes and you receive your next ship. What obviously hap- 
pened is: they skipped the test. 
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The order that each object is drawn is shown in the flow chart below. 





DRAW LASER 








DRAW EACH ALIEN 
AND TEST FOR COLLISION 
AGAINST LASER 










DRAW SHIP AND 
TEST FOR COLLISION 
AGAINST ALIENS 





There isn't any satisfactory way to avoid the problem of the last test without 
elaborate testing. Even if we drew the ship first and the aliens last, we wouldn't 
know if an alien collided with a laser or a ship. It is important that these colli- 
sion tests be performed before any background, like stars, are drawn to the 
screen. Also, any permanent background such as ground terrain will always 
cause a collision. 

Single pixel background stars, in some games, are often set in motion to 
achieve an illusion of speed where stationary ships are involved. Of course, 
they are drawn and Xdrawn before being moved. Programmers usually keep 
the star field from intersecting with the ship's range of operation, which usually 
takes place at the bottom of the screen. However, sometimes it is desirable not 
to worry about background stars in a program and only draw them at the start 
of a game. You could adjust the collision counter to ignore single collisions 
while drawing a complex shape. It is likely that a ship's 24 byte shape would 
collide with a 16 byte alien shape in more than one place. Small one byte 
bullets, however, might pose a problem if the collision detector's value were 
upped to two instead of the usual one. 
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SET ERROR FLAG = 



GET BYTE OF MASK 
OF SHIP SHAPE 



(AND) WITH BYTE ON SCREEN 



IS RESULT 0? 



yes 



no 



SET COLLISION 
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GET BYTE OF SHIP'S 
SHAPE TABLE 



EOR WITH BYTE ON SCREEN 
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. TO 


NEXT BYTE 


OF 
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& SHIP 



INC NEXT SCREEN LOCATION 



no 



DONE? 



I 



yes 



no 



IS COLLISION FLAG = 1? 
I yes 



*DRAW SHIP SUBROUTINE 

*DRAW SHAPE ONE LINE AT A TIME-LNGH BYTES ACROSS 
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SDRAW2 
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; VERTICAL POSITION 



GET BYTE OF SHIP MASK SHAPE 
MASK OUT HI BIT 
(AND) IT AGAINST SCREEN 
IF ANYTHING IN WAY GET>0 

SET BECAUSE IF DON'T FINISH DRAW- 
ING SHIP, PIECE LEFT WHEN XDRAW 
DURING EXPLOSION 
GET BYTE OF SHIP'S SHAPE 

PLOT 

NEXT BYTE OF MASK 

NEXT BYTE OF TABLE 
NEXT SCREEN POSITION 

;IF LINE NOT FINISHED BRANCH 
; OTHERWISE NEXT LINE DOWN 

;D0NE DRAWING? 

;IS EXPLOSION FLAG SET? 

;N0!, EXIT 

;YES! , EXPLODE SHIP 



EXPLOSIONS 



A game wouldn't be complete without the enemy blowing apart when killed. 
The more dramatic the explosion, the better the effect. Although every pro- 
grammer has tried it, most have done it the easy way. 

Explosions are divided into two types: shape explosions and particle explo- 
sions. Shape explosions are simple, because once an object is targeted for 
removal, it is replaced first by a garbage-looking shape and then by a white 
blob, which is larger and resembles a debris-filled fireball. 




SHAPE GARBAGE WHITE FIREBALL 

The animation is done in successive frames with delays between them. A 
nice sound routine, which can also act as a delay between plots, is often incor- 
porated. These explosion shapes are stored in a table and are drawn to the 
screen with drawing subroutines. 

Particle explosions are much more complex. They either involve 
mathematical and random number routines to keep particles streaming out- 
wards from the exploded shape, or they resort to a series of tables to position 
the particles on the screen. I've chosen the latter case for the following exam- 
ple. 

I envisioned a particle fireball that sometimes appears in arcade games like 
Defender. When the object begins to blow apart, there is a bright flash, then 
the white hot debris begins expanding in a roughly circular fireball. These 
fireballs in the arcade grow to be nearly a third the area of the screen and then 
fade to dull red before blanking out. While fading the particles to red can be 
included, coding it would be rather difficult. Actually, anything can be done on 
the Apple if you put your mind to it, but one should weigh the benefits against 
the time involved. I achieved the basic effect of the explosion in the following 
manner: 



a a 

n ° ,-. □ Q a 

a 

„ a n D o 

a a D o 

□ a 
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O B a EXPLOSION SEQUENCE 
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FRAME 4 



The explosion fills almost l/9th of the screen. The ship is XDRAWn off the 
screen and replaced by a bright white block at the ship's center. Then, white 
particles, each three pixels by four pixels, are drawn in successive expanding 
but randomized rings. Each frame has a ring of particles, two layers deep. 
Each successively larger ring requires more particles. The closest ring has only 
8 particles, whose positions are stored in two tables, EOFFX and EOFFY. The 
largest rings have 18 particles. 

The two position tables contain the locations of each particle. EOFFX con- 
tains the true horizontal offset. EOFFY contains the relative position in rela- 
tion to the ship's vertical position. For example, the center of the fireball is at 
VERT + 12. If EOFFY =8, then the particle is plotted at VERT + 12. And if 
EOFFY is negative or above the center at -4 ,it is stored as $FC (the two's 
complement), so that it can be added to VERT +4 directly without testing to 
see if it is negative, and then subtracting. The number of particles to be plotted 
in any ring is controlled by SBLOCK and EBLOCK. They determine the start 
and end points of the data table that is used to draw a ring. 

The sequence for drawing the expanding fireball is shown below. It was my 
choice that only two layers be shown at any one time while the fireball expands. 
Readers might like to experiment by leaving all of the layers on the screen until 
the fireball reaches its limit, then XDRAWing them off from the inside out. 
The time delay in my game may seem fast for most readers. The explosion 
occurs much too rapidly, but longer delays looked strange using only two layers 
of debris. Experiment! 



XDRAW SHIP 



PLOT WHITE FIREBALL 



XDRAW 1st SEQ. 8 BLOCKS 



XDRAW FLASH 



XDRAW 2nd SEQ. 11 BLOCKS 



XDRAW 1st SEQ. OFF 



XDRAW 3rd SEQ. 15 BLOCKS 



XDRAW 2nd SEQ. OFF 



XDRAW 4th SEQ. 16 BLOCKS 



XDRAW 3rd SEQ. OFF 



XDRAW 5th SEQ. 18 BLOCKS 



XDRAW 4th SEQ. OFF 



XDRAW 6th SEQ. 18 BLOCKS 



XDRAW 5th SEQ. OFF 



XDRAW 6th SEQ. OFF 
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X register = SBLOCK 



DEPTH = 3 



IS (VERT+4)+EOFFY(X) < 0? 



no 



yes 



IS (VERT+4)+E0FFY(X) >191? 
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yes 



TEMPI = (VERT+4)+E0FFY(X) 



HORIZ = EOFFX(X) 



FIND SCREEN ADDRESS 
JSR GETADR 



EOR $F0 WITH HIRES SCREEN 



STORE 


ON SCREEN | 






TEMPI = 
DEPTH = 


TEMPI - 1 
DEPTH - 1 
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IS DEPTH = 



noplot 



yes 
< 



DO NEXT PARTICLE 
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IS X = EBLOCK 
I yes 



DELAY 



DONE 
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STA SBLOCK 

LDA #$32 

STA EBLOCK 

JSR EPLOT 

*XDRAW SEQ3-15 OFF 

LDA #$13 

STA SBLOCK 

LDA #$22 

STA EBLOCK 

JSR EPLOT 

*XDRAW SEQ5- 18 

LDA #$32 

STA SBLOCK 

LDA #$44 

STA EBLOCK 

JSR EPLOT 

*XDRAW SEQ4-16 OFF 

LDA #$22 

STA SBLOCK 

LDA #$32 

STA EBLOCK 

JSR EPLOT 

*XDRAW SEQ6-18 

LDA #$44 

STA SBLOCK 

LDA #$56 

STA EBLOCK 

JSR EPLOT 

*XDRAW SEQ5-18 OFF 

LDA #$32 

STA SBLOCK 

LDA #$44 

STA EBLOCK 

JSR EPLOT 

*XDRAW SEQ6-18 OFF 

LDA #$44 

STA SBLOCK 

LDA #$56 

STA EBLOCK 

JSR EPLOT 
RTS 
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*EXPLOSION PLOTTING SUBR 










787 


# 






661A: 


AE 


OA 


60 


788 
789 


EPLOT 


LDX 


SRT DTK 


661D: 


A9 


03 




790 


EPLOT 1 


LDA 


#$03 


661F: 


8D 


11 


60 


791 




STA 


DEPTH 


6622: 


18 






792 


EL00P1 


CLC 




6623: 


AD 


OC 


60 


793 




LDA 


VERT 


6626: 


69 


04 




794 




ADC 


#$04 


6628: 


18 






795 




CLC 


6629: 


7D 


9A 


69 


796 




ADC 


POPPV Y 


662C: 


C9 


00 




797 




CMP 




662E: 


90 


21 




798 




RT T 


NfVPT PtT 

INUrLUI 


6630: 


C9 


CO 




799 




pmp 




6632: 


BO 


ID 




800 




DO XL 


NUrLUl 


6634: 


8D 


09 


60 


801 




Ol A 


TT7MD1 


6637: 


BD 


44 


69 


802 




LDA 




663A: 


8D 


OE 


60 


803 




STA 


H0RT7 


663D: 


AC 


09 


60 


804 


ft nnp^ 


T TW 


TCMD1 

1 CiNr 1 


6640: 


20 


1C 


63 


805 




TQP 


PUT A HD 

btl AUK 


6643: 


A9 


FO 




806 




LiUn 


if ttrn 


6645: 


51 


26 




807 




PHP 


/UTDT70T "\ V 

VhlKLbL ; , Y 


6647: 


91 


26 




808 




Olrt 


/ 14TDT7CT \ V 


6649: 


CE 


09 


60 


809 






1 trlr 1 


664C: 


CE 


11 


60 


810 




DEC 


udr 1 tl 


664F: 


DO 


EC 




811 






EL00P3 


6651: 


E8 






812 


NOPLOT 


I NX 




6652: 


EC 


OB 


60 


813 




CPX 


EBLOCK 


6655: 


DO 


C6 




814 




BNE 


EPLOT 1 


6657: 


A9 


30 




815 




LDA 


#$30 


6659: 


20 


A8 


FC 


816 




JSR 


$FCA8 


665C: 


60 






817 




RTS 



LOCATION IN PARTICLE POSITION 

TO START DRAWING 

EACH BLOCK 3 LINES DEEP 



;T0P OF SHIP 

;N0W CENTER OF SHIP 

> ADD RELATIVE Y POS OF PARTICLE. 

;TEST NOT OFF TOP SCREEN 

;IF OFF, DON'T LOT 

;TEST NOT OFF BOTTOM SCREEN 

;IF OFF, DON'T PLOT 

; STORE VALUE IN TEMPI 
; LOCATE X POSITION 

;FIND LINE ADRESS TO PLOT ON SCREEN 

; VALUE OF ALL SHAPE BYTES 
;X0R WITH SCREEN 
;PL0T ON SCREEN 

;NEXT LINE, IN THIS CASE DRAWING — 

;FROM BOTTOM TO TOP 

;DONE? 

;D0 NEXT PARTICLE 

;DONE WITH ALL PARTICLES IN GROUP 9 
; NO, CONTINUE 

; DELAY 



SCOREKEEPING 

It is a rare exception for machine language games to include a Hi-Res 
character generator with a complete character set. It is basically a waste of 
space, because only one or two words are written to the Hi-Res screen along 
with the numbers through 9 for the numerical score. 

For example, in our game, only the word SCORE is written at the top of the 
screen. This is done once at the start of the game. The numbers, however, 
change with each alien killed. It would appear that the scoring subroutine 
would need to convert hexadecimal numbers to decimal numbers, since the 
computer stores the numerical score as hexadecimal numbers in memory. 
There is a simple method to avoid this messy approach. 

The scoring registers can be broken down into three separate digits, one each 
for the hundred's digit, ten's digit and one's digit. This is just like the decimal 
system. Each time an enemy is killed, the one's digit storage location is 
incremented. This value is tested to see if it becomes greater than 9. If so, the 
one's digit memory location is reset to zero, and the ten's digit memory loca- 
tion is incremented by one. 



crJ/i 1 ? 6 ° bjeCtS WCre W ° rth tW ° P ° intS instead of one P° int > we could JSR to 
SCORE twee. If a target was worth ten points, one could JSR to the middle of 
the longer SCORE subroutine at a point called SCORE10. This is the place in 
the subroutine where the ten's digit is incremented. Returning to the main pro- 
gram would be through the usual RTS. 

In the following routine, SCOREA represents the one's digit, SCOREB the 
ten s dipt, and SCOREC the hundred's digit. The three variables are drawn 
on the screen just after the words SCORE, which is on the very first line at the 
top of the Hi-Res screen. 



VERTICAL 
OFFSET 



$1D 


$1E 


$1F 


$20 


$21 


$22 


$23 


$24 


$25 


s 


c 





R 


E 







1 


5 



SCORE SCORE SCORE 
ABC 



Since our three digit score doesn't move, the numbers don't change position 
during the game. Therefore, they don't need to be XDRAWn before being up- 
dated. New values can be drawn over the old numbers. This necessitated 
adding another drawing subroutine that is virtually identical to our standard 
eight-line deep XDRAW subroutine, but lacks the EOR code. An alternative 
would be to use your XDRAW drawing subroutine after first blacking out the 
previous number. 

The scoring setup routine is divided into three sections for each of the three 
digits. SCOREC is to be drawn to the screen at location $2023, so HIRESL 

^crJS^S* 1 * SCt a PP r °P riate, y- The number shapes which are stored 
at &UUKEi>H are individually referenced by indexing into a table of lo byte 
addresses stored at SCOREP. 



6A00 SCORESH HEX 1C 22 
6A08 HEX 08 0C 
6A10 HEX 



SCOREP 00 08 10 18 



For example, if SCOREC = 2 (hundred's digit), then the Y register con- 
tains a 2. LDA SCOREP,Y loads $10 in the Accumulator and stores the value 
as SHPL. The hi byte of SCORESH is stored as SHPH. Our drawing routine, 
using zero page indirect addressing LDA (SHPL),X with X = 0, will 
reference the correct shape at $6A10, which in this case are the bytes that form 
the number 2 on the screen. 

The word SCORE stored as a five byte wide, eight-line deep shape, is drawn 
only once on the screen. This is done at the beginning before the program's 
main loop. 
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*SC0RE SETUP ROUTINE FOR DRAW 



6693: 


A9 


20 




845 SCRSET 


LDA 


#$20 


6695: 


85 


27 




846 


STA 


HIRESH 


6697: 


A9 


23 




847 


LDA 


#$23 


6699: 


85 


26 




848 


STA 


HIRESL 


669B: 


A9 


01 




849 


LDA 


#$01 


669D: 


8D 


10 


60 


850 


STA 


LNGH 


66A0: 


A9 


6A 




851 


LDA 


#>SC0RESH 


66A2: 


85 


51 




852 


STA 


SHPH 


66A4: 


AC 


20 


60 


853 


LDY 


SCOREC 


66A7: 


B9 


30 


6A 


854 


LDA 


SC0REP.Y 


66AA: 


85 


50 




855 


STA 


SHPL 


66AC: 


20 


E8 


66 


856 


JSR 


SC0REDR 


66AF: 


A9 


20 




857 


LDA 


#$20 


66B1: 


85 


27 




858 


STA 


HIRESH 


66B3: 


A9 


24 




859 


LDA 


#$24 


66B5: 


85 


26 




860 


STA 


HIRESL 


66B7: 


A9 


01 




861 


LDA 


#$01 


66B9: 


8D 


10 


60 


862 


STA 


LNGH 


66BC: 


A9 


6A 




863 


LDA 


#>SC0RESH 


66BE: 


85 


51 




864 


STA 


SHPH 


66C0: 


AC 


IF 


60 


865 


LDY 


SCOREB 


66C3: 


B9 


30 


6A 


866 


LDA 


SC0REP.Y 


66C6: 


85 


50 




867 


STA 


SHPL 


66C8: 


20 


E8 


66 


868 


JSR 


SCOREDR 


66CB: 


A9 


20 




869 


LDA 


#$20 


66CD: 


85 


27 




870 


STA 


HIRESH 


66CF: 


A9 


25 




871 


LDA 


#$25 


66D1: 


85 


26 




872 


STA 


HIRESL 


66D3: 


A9 


01 




873 


LDA 


#$01 


66D5: 


8D 


10 


60 


874 


STA 


LNGH 


66D8: 


A9 


6A 




875 


LDA 


#>SC0RSH 


66DA: 


85 


51 




876 


STA 


SHPH 


66DC: 


AC 


IE 


60 


877 


LDY 


SCOREA 


66DF: 


B9 


30 


6A 


878 


LDA 


SC0REP,Y 


66E2: 


85 


50 




879 


STA 


SHPL 


66E4: 


20 


E8 


66 


880 


JSR 


SCOREDR 


66E7: 


60 






881 


RTS 





SETUP SCREEN LOCATION TO PLOT 
SCOREC ,100'S DIGIT 
DIGIT 1 BYTE WIDE 



INDEX TO CORRECT SHAPE FOR DIGIT- 
DRAWN 

DRAW 100' S DIGIT 

SETUP SCREEN LOCATION TO 



;PL0T SCOREB ,10'S DIGIT 



;DRAW 10 'S DIGIT 



; SETUP SCREEN LOCATION TO 
;PL0T SCOREA , l'S DIGIT 



;DRAW l'S DIGIT 
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SCORE A, B, C = 



SCORE A = SCORE A + 1 



no 



IS SCOR 


EA > 9 ? _i> 


\ 


yes 


SCOREB = SCOREB + 1 



SCOREA = 



IS SCOREB > 9 ? 



no 



yes 



SCOREC = SCOREC + 1 



SCOREB = 



IS SCOREC > 9 ? 



_,no 



1 


yes 

r 


SCOREA 


= 


SCOREB 


= 


SCOREC 


= 



SETUP SCOREA 
PLOT SCOREA 



SETUP 


SCOREB 


PLOT 


SCOREB 



SETUP SCOREC 
PLOT SCOREC 



RTS 



665D: 
6660: 
6663: 
6666: 
6668: 
666A: 
666C: 
666F: 
6672: 
6675: 
6677: 
6679: 
667B: 
667E: 
6681: 
6684: 
6686: 
6688: 
668A: 
668D: 
6690: 



EE ID 
EE IE 
AD IE 
C9 OA 
90 29 
A9 00 
8D IE 
EE IF 
AD IF 
C9 OA 
90 1A 
A9 00 
8D IF 
EE 20 
AD 20 
C9 OA 
90 OB 
A9 00 
8D IE 
8D IF 
8D 20 



819 
820 
60 821 
60 822 
60 823 
824 
825 
826 
60 827 
60 828 
60 829 
830 
831 
832 
60 833 
60 834 
60 835 
836 
837 
838 
60 839 
60 840 
60 841 
842 



*SC0RE SUBROUTINE 



SCORE INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 

SC0RE10 INC 
LDA 
CMP 
BLT 
LDA 
STA 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
STA 
STA 



KILLNUM 

SCORE A 

SCOREA 

#$0A 

SCRSET 

#$00 

SCOREA 

SCOREB 

SCOREB 

#$0A 

SCRSET 

#$00 

SCOREB 

SCORC 

SCOREC 

#$0A 

SCRSET 

#$00 

SCOREA 

SCOREB 

SCOREC 



; ANOTHER ALIEN KILLED 
; INCREMENT COUNTER 



;IF <10 DON'T CARRY TENS DIGIT 
;ZERO OUT l'S DIGIT 

; ADD CARRY IN TENS 



;IF <10 DON'T CARRY TO 100'S DIGIT 
;ZERO OUT 10 'S DIGIT & l'S DIGIT 



; ADD CARRY IN 100 'S 



;SKIP IF LESS 999 
; RESET TO IF 1000 
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*SCORE 


DRAWING ROUTINE 








884 








66E8: 


A-2 


00 


885 


SCOREDR 


LDX 


#$00 


66EA: 


AO 


00 


886 




LDY 


#$00 


66EC: 


Al 


50 


887 


SC0RED2 


LDA 


(SHPL.X) 


66EE: 


91 


26 


888 




STA 


(HIRESL)J 


66F0: 


A5 


27 


889 




LDA 


HIRESH 


66F2: 


18 




890 




CLC 




66F3: 


69 


04 


891 




ADC 


#$04 


66F5: 


85 


27 


892 




STA 


HIRESH 


66F7: 


E6 


50 


893 




INC 


SHPL 


66F9: 


C9 


40 


894 




CMP 


#$40 


66FB: 


90 


EF 


895 




BCC 


SC0RED2 


66FD: 


E9 


20 


896 




SBC 


#$20 


66FF: 


85 


27 


897 




STA 


HIRESH 


6701: 


CE 


10 60 


898 




DEC 


LNGH 


6704: 


FO 


03 


899 




BEQ 


SC0RED3 


6706: 


C8 




900 




INY 




6707: 


DO 


E3 


901 




BNE 


SC0RED2 


6709: 


60 




902 


SC0RED3 


RTS 





; OFFSET INTO LINE ALREADY SET 
;IN SCRSET 
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PAGE FLIPPING 



One of the most successful methods for eliminating screen flicker while 
simultaneously smoothing animation is screen or page flipping. The principle 
involves drawing on one graphics screen while viewing the other. However, it 
uses an additional 8K of memory for screen display, and involves elaborate 
logic to keep track of what and when to draw or erase on a particular screen. 

The logic loop for moving an object across the screen is as follows: 



PLOT INITIAL POSITIONS 
BOTH SCREENS 



LOOK AT SCREEN #2 



XDRAW OBJECT SCREEN #1 



MOVE & DRAW OBJECT SCREEN #1 



LOOK AT SCREEN #1 



XDRAW OBJECT SCREEN #2 



MOVE & DRAW OBJECT SCREEN #2 



This appears to be rather simple and straight-forward, but it can be tricky. 
Let's take an object on screen #1, located at X,Y coordinates 3,3. We move it 
to the right one position to coordinates 4,3 and display it on screen #2. Now, 
we move it right once more to 5,3 and plot it on screen #1 . Before we plot it, we 
must XDRAW it at its previous position 3,3 , because that was its last location 
on screen #1 . This is different from the last location plotted, which is on screen 
#2. The last time we plotted on screen #1, we plotted our object at 3,3. If you 
make this mistake and just erase the last object's position, which was actually 
on the opposite screen, you will XDRAW an object at 3,4 and get an object at 
that location. Recall that XDRAWing is EORing, and it will plot if nothing is 
there and erase if something is there. 
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SCREEN #1 PG 1 



SCREEN #2 PG 2 





CYCLE #1 




CYCLE #3 CORRECT 




Result if XDRAW position 
of ship Cycle #2 instead 
of XDRAWing last position 
on same screen. 



CYCLE #3 INCORRECT 



The solution to keeping track of the objects is to store the previous location of 
all objects for both screens. In the above case, XS1 ,YS1 is always the previous 
location for the object on screen #1, while XS2.YS2 is the previous screen posi- 
tion for the object on screen #2. While this isn't awkward for one or two 
objects, a multitude of objects may prove difficult for most programmers. If 
you are determined to pursue this, I would suggest storing the previous object 
locations for each screen in tables, which can then be indexed by object 
number. 

To demonstrate a working example of page flipping, the free-floating rocket 
ship program has been converted to dual screen. Actually, you won't see any 
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difference in flicker, because only one small object is being drawn. It would 
require at least a dozen or more objects before you might begin to see the effects 
of flicker. A small minus sign was added to the bottom left corner of screen #1 
as a page reference to determine which screen was being viewed. A single step 
debug package was also incorporated to allow you to step from screen to 
screen. 

Screen #1 is considered the odd screen and screen #2 the even screen. A 
counter is incremented for each screen cycle. It is tested for its odd/even 
character by dividing by two (LSR)and testing the carry bit. Depending on 
whether COUNTER is odd or even, you might store coordinate values and 
draw on one screen while displaying the other; then, when COUNTER 
changes, switch to the opposite screen. For example, if you look at the flow 

page flipping DSETUP 



ODD/EVEN ? 



odd- pgl 



even pg2 



LOOKUP 


HI 


BYTE OF LINE 


TO 


PLOT ON 


HIRESH 




YBLOCK (YS2) 



HIRESH = 


HIRESH + #$20 






LOOKUP LO 
TO PL 
HIRESL = 


BYTE OF LINE 
OT ON 

YBLOCK (YS2) 



Y register = XS2 



BOTTOM = #$60 



HIRESL = YBLOCK (YS1) 



HIRESH = YBLOCK (YS1) 



LOOKUP LO BYTE OF SHAPE 
SHPL = SHPLO (TR0T1) 



Y register = XS1 



BOTTOM = #$40 



LOOKUP HI BYTE OF SHAPE TABLE 
SHPH = HI BYTE OF SHAPES 
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chart below - when COUNTER is even, you store screen #2's values, XS2, 
YS2, and TROT2 after calculating the ship's new position, and draw the ship 
on screen #2 while displaying screen #1. When you are finished, you shift the 
view to screen #2. 

Likewise, the drawing setup subroutine must set the pointers to the proper 
line on the proper screen. An even -valued COUNTER needs to locate the 
screen line for YS2 and the offset for XS2. In addition, #$20 must be added to 
the hi byte line pointer HIRESH for screen #2. Also, the test to determine if all 
eight lines have been plotted - a comparison with BOTTOM - becomes > = 
#$60, which is the end of the second Hi-Res screen. 

The flow chart and code is shown below. 



INITILIZE POSITION 
BOTH SCREENS 










COUNTER = 








DRAW SHIP PAGE2 










COUNTER = 1 



ODD (1,3,5. 
EVEN(0,2,4. 



.) PG1 
.) PG2 



DRAW SHIP PAGE1 



VIEW PAGE2 



DRAW SETUP 



odd 



even 



XDRAW SHIP 
PAGE 1 



XDRAW SHIP 
PAGE 2 



READ PADDLE 
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3 

CALCULATE TROTATE 



no 



BUTTON ON? 



yes 



CALCULATE NEW XS.YS 
FROM THRUST 



odd 



CALCULATE NEW XS.YS 
NO THRUST 



ODD/EVEN? 



even 



STORE PG1 VALUES 
XS1, YS1, TROT1 



STORE PG2 VALUES 
XS2, YS2, TROT 2 



DRAW SETUP 



odd 



even 



DRAW SHIP NEW 
POSITION PG1 



DRAW SHIP NEW 
POSITION PG2 



odd 



I 



~ ODD/EVEN? 



even 



DISPLAY PG1 



1 



DISPLAY PG2 



T 



SINGLE STEP 



COUNTER = COUNTER+1 



DELAY 



(SUMMARY) 



LOOK AT PAGE2 






XDRAW SHIP PG1 






MOVE 


SHIP 






DRAW SHIP PG1 






LOOK AT PAGE1 






XDRAW SHIP PG2 






MOVE 


SHIP 






DRAW SHIP PG2 







6000: 4C 14 60 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 



♦FREE FLOATING ROCKET (PAGE FLIPPING) 
ORG $6000 

PROG ;JUMP TO START OF PROGRAM 



6014: 


AD 


50 


CO 


26 


6017: 


AD 


52 


CO 


27 


601A: 


AD 


57 


CO 


28 


601D: 


20 


OB 


62 


29 


6020: 


20 


25 


62 


30 










31 


6023: 


A9 


14 




32 


6025: 


8D 03 


60 


33 


6028: 


8D 


05 


60 


34 


602B: 


8D 


06 


60 


35 


602E: 


A9 


OA 




36 


6030: 


8D 04 


60 


37 


6033: 


8D 


07 


60 


38 


6036: 


8D 


08 


60 


39 


6039: 


A9 


00 




40 


603B: 


8D 09 


60 


41 


603E: 


8D 


OA 


60 


42 


6041: 


8D 


OF 


60 


43 


6044: 


8D 


11 


60 


44 


6047: 


8D 


12 


60 


45 


604A: 


A9 


00 




46 


604C: 


8D 


OD 


60 


47 


604F: 


20 


BF 


61 


48 


6052: 


20 


97 


61 


49 


6055: 


A9 


01 




50 


6057: 


8D 


OD 


60 


51 


605A: 


20 


BF 


61 


52 


605D: 


20 


97 


61 


53 


6060: 


AD 


55 


CO 


54 










55 


6063: 


A9 


FF 




56 


6065: 


8D DO 


5F 


57 
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xs 

YS 
XS1 
XS2 
YS1 
YS2 
VX 
VY 
PDL 
LNGH 
COUNTER 
BOTTOM 
ROTATE 
TROTATE 
TR0T1 
TR0T2 
HIRESL 
HIRESH 
SHPL 
SHPH 
PREAD 



JMP 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
EQU 
EQU 
EQU 
EQU 
EQU 



2 

$FB 

HIRESL+$1 
$FD 

SHPL+$1 
$FB1E 

♦ENTER HERE FIRST TIME ACCESS 
PROG LDA $C050 
$C052 
$C057 
CLRSCR 
CLRSCR2 

♦INITILIZE ROCKET'S STARTING POSITION 
LDA #$14 
XS 
XS1 
XS2 
#$0A 
YS 
YS1 
YS2 
#$00 
VX 
VY 

ROTATE 
TR0T1 
TR0T2 
#$00 
COUNTER 
DSETUP 
DRAW 
#$01 
COUNTER 
DSETUP 
DRAW 
$C055 
SIGN AT BOTTOM 



LDA 
LDA 

JSR 
JSR 



STA 
STA 
STA 
LDA 
STA 
STA 
STA 
LDA 
STA 
STA 
STA 
STA 
STA 
LDA 
STA 
JSR 
JSR 
LDA 
STA 
JSR 
JSR 
LDA 
♦PUT MINUS 



;DRAW EVEN OR PAGE 2 START POS 



;DRAW ODD OR PAGE 1 START POS 



LDA 
STA 



#$FF 
$5FD0 



; DISPLAY PG 2 WHILE DRAWING ON PG 1 
LEFT PAGE 2 FOR REFERENCE 
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59 


** M A I 


N 


P R G R 


AM LOOP** 






60 


* 








6068: 




61 


* PADDLE 


READ 






20 BF 61 


62 


START 


JSR 


DSETUP 


;WILL SETUP NON DISPLAYED SCREEN 


606B: 




63 


*F0R SHIP XDRAW 




20 97 61 


64 




JSR 


DRAW 


; XDRAW SHIP ON NON DISPLAY SCREEN 


606E: 


A2 01 


65 




LDX 


#$01 


6070: 


20 IE FB 


66 




JSR 


PREAD 




6073: 


CO F9 


67 




CPY 


#$F9 


;CLIP VALUE (0-250) 


6075: 


90 02 


68 




BLT 


SKIPP 


6077: 


AO F8 


69 




LDY 


#$F8 




6079: 


8C OB 60 


70 


SKIPP 


STY 


PDL 




60 7C: 


98 


71 




TYA 






607D: 


CD OF 60 


72 




CMP 


ROTATE 


;PADDLE< ROTATE POS THEN SUBTRACT 5 


6080: 


BO IB 


73 




BGE 


PADDLE3 




6082: 


AD OF 60 


74 




LDA 


ROTATE 




6085: 


38 


75 




SEC 






6086: 


E9 05 


76 




SBC 


#$05 




6088: 


BO 05 


77 




BGE 


PADDLE 1 


;MAKE SURE =>0 


608A: 


A9 00 


78 




LDA 


#$00 


608C: 


8D OF 60 


79 




STA 


ROTATE 




608F: 


CD OB 60 


80 


PADDLE1 


CMP 


PDL 


; DON'T WANT TO GO PAST PADDLE POS 


6092: 


BO 03 


81 




BGE 


PADDLE2 


6094: 


AD OB 60 


82 




LDA 


PDL 




6097: 


8D OF 60 


83 


PADDLE2 


STA 


ROTATE 




609A: 


AC BO 60 


84 




JMP 


PADDLE5 




609D: 


CD OF 60 


85 


PADDLE3 


CMP 


ROTATE 


;PADDLE>ROTATE POS THEN ADD 5 


60A0: 


FO OB 


86 




BEQ 


PADDLE4 




60A2: 


AD OF 60 


87 




LDA 


ROTATE 




60A5: 


18 


88 




CLC 






60A6: 


69 05 


89 




ADC 


#$05 




60A8: 


CD OB 60 


90 




CMP 


PDL 


; DON'T WANT TO GO PAST PADDLE POS 


60AB: 


90 03 


91 




BLT 


PADDLE5 




60AD: 


AD OB 60 


92 


PADDLE4 


LDA 


PDL 




60B0: 


8D OF 60 


93 


PADDLE5 


STA 


ROTATE 




60B3: 


4A 


94 




LSR 




;DIVIDE BY 16 TO GET R0TATI0N(0-15) 


60B4: 


4A 


95 




LSR 




;0R WO ROTATIONS 


60B5: 


4A 


96 




LSR 






60B6: 


4A 


97 




LSR 






60B7: 


8D 10 60 


98 
99 




STA 


TROTATE 




60BA: 


AD 62 CO 


100 




LDA 


$C062 


;NEG BUTTON PRESSED 


60BD: 


30 03 


101 




BMI 


THRUST 




60BF: 


4C F7 60 


102 




JMP 


NOTHRUST 




60C2: 


AE 10 60 


103 


THRUST 


LDX 


TROTATE 








104 


*UPDATE VELOCITY VX AND 


VY 


60C5: 


18 


105 




CLC 






60C6: 


BD 6F 62 


106 




LDA 


XT.X 


;GET X THRUST VECTOR 


60C9: 


6D 09 60 


107 




ADC 


VX 




60CC: 


C9 FD 


108 




CMP 


#$FD 




60CE: 


DO 05 


109 




BNE 


NOCLIP 




60D0: 


A9 FE 


110 




LDA 


#$FE 




60D2: 


4C DB 60 


111 




JMP 


N0CLIP1 




60D5: 


C9 03 


112 


NOCLIP 


CMP 


#$03 


;CLIP MAX VELOCITY AT 2 


60D7: 


DO 02 


113 




BNE 


N0CLIP1 




60D9: 


A9 02 


114 




LDA 


#$02 




60DB: 


8D 09 60 


115 


N0CLIP1 


STA 


VX 


; STORE X VELOCITY 


60DE: 


18 


116 




CLC 






60DF: 


BD 7F 62 


117 




LDA 


YT,X 





231 



VY 

#$FD 

N0CLIP2 

#$FE 

N0CLIP3 

#$03 

NOCLIP3 

#$02 

VY 



'S X POSITION XS 



VX 
XS 

#$E0 
NWRAP1 

#$28 
NWRAP2 
#$28 
NWRAP2 

#$28 
XS 



S Y POSITION YS 



60E2: 6D OA 60 118 ADC 

60E5: C9 FD 119 CMP 

60E7: DO 05 120 BNE 

60E9: A9 FE 121 LDA 

60EB: 4C F4 60 122 JMP 

60EE: C9 03 123 N0CLIP2 CMP 

60F0: DO 02 124 BNE 

60F2: A9 02 125 LDA 

60F4: 8D OA 60 126 N0CLIP3 STA 

127 *UPDATE SHIP 

60F7: 18 128 NOTHRUST CLC 

60F8: AD 09 60 129 LDA 

60FB: 6D 03 60 130 ADC 

60FE: C9 EO 131 CMP 

6100: 90 06 132 BLT 

6102: 18 133 CLC 

6103: 69 28 134 ADC 

6105: 4C OF 61 135 JMP 

6108: C9 28 136 NWRAP1 CMP 

610A: 90 03 137 BLT 

610C: 38 138 SEC 

610D: E9 28 139 SBC 

61 OF: 8D 03 60 140 NWRAP2 STA 

141 *UPDATE SHIP' 

6112: 18 142 CLC 

6113: AD OA 60 143 LDA 

6116: 6D 04 60 144 ADC 

6119: C9 EO 145 CMP 

61 IB: 90 06 146 BLT 

611D: 18 147 CLC 

61 IE: 69 18 148 ADC 

6120: 4C 2A 61 149 JMP 

6123: C9 18 150 NWRAP3 CMP 

6125: 90 03 151 BLT 

6127: 38 152 SEC 

6128: E9 18 153 SBC 

612A: 8D 04 60 154 NWRAP4 STA 

612D: 18 155 CLC 

612E: AD OD 60 156 LDA 

6131: 4A 157 LSR 

6132: BO 15 158 BCS 

6134: AD 03 60 159 EVEN LDA 

6137: 8D 06 60 160 STA 

613A: AD 04 60 161 LDA 

613D: 8D 08 60 162 STA 

6140: AD 10 60 163 LDA 

6143: 8D 12 60 164 STA 

6146: 4C 5B 61 165 JMP 

6149: AD 03 60 166 ODD LDA 

614C: 8D 05 60 167 STA 

614F: AD 04 60 168 LDA 

6152: 8D 07 60 169 STA 

6155: AD 10 60 170 LDA 

6158: 8D 11 60 171 STA 

615B: EA 172 DONE NOP 

173 * 

615C: 20 BF 61 174 JSR DSETUP 

175 *FOR NON DISPLAY SCREEN 

20 97 61 176 JSR DRAW 

18 177 CLC 



;CLIP MAX VELOCITY AT 2 



; STORE Y VELOCITY 



; CHECK FOR WRAPAROUND LEFT 

;FIX BY ADDING 40 

; CHECK FOR WRAPAROUND RIGHT 



;FIX BY SUBTRACTNG 40 
; STORE SHIP'S NEW X POS 



VY 
YS 

#$E0 
NWRAP3 

#$18 
NWRAP4 
#$18 
NWRAP4 

#$18 
YS 

COUNTER 

ODD 

XS 

XS2 

YS 

YS2 

TROTATE 

TR0T2 

DONE 

XS 

XS1 

YS 

YS1 

TROTATE 
TR0T1 



; CHECK FOR WRAPAROUND TOP 

;FIX BY ADDING 24 

CHECK FOR WRAPAROUND BOTTOM 



; FIX BY SUBTRACTING 24 
; STORE NEW Y POSITION 



; STORE SHIP'S CURRENT VARIABLES-PG 2 



; STORE SHIP'S CURRENT VARIABLES -PG 1 



615F: 
6162: 



; SETUP SHIP'S NEW DRAWING POS 
;DRAW SHIP ON NON DISPLAYED SCREEN 



6163: 


AD 


OD 


60 


178 




LDA 


COUNTER 


TEST COHNTFR TO DFTFRMTNF 










179 


*NEW PAGE DISPLAYE 




6166: 


4A 






180 




LSR 




■DTSPIAY PARF DRAWN Tf) 


6167: 


BO 


06 




181 




BCS 


0DD1 


ODD SHTFT TO PARF 1 

\JULi iJUll 1 1 \J 1 [\\J 11» J. 


6169: 


AD 


55 


CO 


182 


EVEN1 


LDA 


$C055 


EVEN SHIFT TO PAGE 2 


616C: 


4C 


72 


61 


183 




JMP 


SKIPO 




616F: 


AD 


54 


CO 


184 


0DD1 


LDA 


$C054 




6172: 


EA 






185 


SKIPO 


NOP 














186 


♦DEBUG PACKAGE TO SINGLE STEP 


6173: 


AD 


00 


CO 


187 




LDA 


$C000 


KEY PRESSED? 


6176: 


10 


10 




188 




BPL 


IGNORE 


EXIT IF NO KEY PRESSED 


6178: 


C9 


9B 




189 




CMP 


#$9B 


ESC KEY? 


617A: 


DO 


OC 




190 




BNE 


IGNORE 




61 7C: 


2C 


10 


CO 


191 


CAUGHT 


BIT 


$C010 


CLEAR STROBE 


617F: 


AD 


00 


CO 


192 




LDA 


$C000 


KEY PRESSED? 


6182: 


10 


FB 




193 




BPL 


*-3 


LOOP BY BRANCHING BACK 3 BYTES 


6184: 


C9 


AO 




194 




CMP 


#$A0 


SPACE KEY? 


6186: 


DO 


03 




195 




BNE 


IGNORE+3 


NO, DON'T CLEAR STROBE 


6188: 


2C 


10 


CO 


196 


IGNORE 


BIT 


$C010 


CLEAR STROBE 


618B: 


EA 






197 




NOP 






618C: 


EE 


OD 


60 


198 




INC 


COUNTER ; INCREMENT COUNTER FOR NEXT FRAME 


618F: 


A9 


CO 




199 




LDA 


#$C0 




6191: 


20 


A8 


FC 


200 




JSR 


$FCA8 


SHORT DELAY 


6194: 


4C 


68 


60 


201 




JMP 


START 












202 


* 
















203 


* S U B 


R U 


TINES* 












204 


# 
















205 


♦SUBROUTINE TO DRAW ROCKET 1 BYTEBY 8 ROWS 


6197: 


A2 


00 




206 


DRAW 


LDX 


#$00 




6199: 


A9 


01 




207 




LDA 


#$01 




619B: 


8D 


OC 


60 


208 




STA 


LNGH 




619E: 


Al 


FD 




209 


DRAW2 


LDA 


(SHPL.X) :GET BYTE FROM SHAPE TABLE 


61A0: 


51 


FB 




210 




EOR 


(HIRESL) , Y 




61A2: 


91 


FB 




211 




STA 


(HIRESL) , Y ;PUT ON HIRES SCREEN 


61A4: 


A5 


FC 




212 




LDA 


HIRESH 




61A6: 


18 






213 




CLC 






61A7: 


69 


04 




214 




ADC 


#$04 ;THIS GETS TO NEXT ROW IN BLOCK 


61A9: 


85 


FC 




215 




STA 


HIRESH 




61AB: 


E6 


FD 




216 




INC 


SHPL 


NEXT BYTE OF SHAPE TABLE 


61AD: 


CD 


OE 


60 


217 




CMP 


BOTTOM 


ARE WE FINISHED WITH 8 ROWS 


61B0: 


90 


EC 




218 




BCC 


DRAW 2 


NO DO NEXT BYTE 


61B2: 


E9 


20 




219 




SBC 


#$20 


RETURN TO TOP ROW 


61B4: 


85 


FC 




220 




STA 


HIRESH 




61B6: 


CE 


OC 


60 


221 




DEC 


LNGH 




61B9: 


FO 


03 




222 




BEQ 


DRAW3 ; FINISHED? 


61BB: 


C8 






223 




INY 


:NEXT COLUMN OF 8 ROWS 


61BC: 


DO 


EO 




224 




BNE 


DRAW2 




61BE: 


60 






225 


DRAW3 


RTS 














226 


♦DRAWING 


SETUP SUBROUTINE 




61BF: 


AD 


OD 


60 


227 


DSETUP 


LDA 


COUNTER ; 


ODD PAGE 1 :EVEN PAGE 2 


61C2: 


18 






228 




CLC 






61C3: 


4A 






229 




LSR 


;TEST ODD OR EVEN BY SHIFTING - 










230 


#_ 




:INTO CARRY BIT 


61C4: 


BO 


23 




231 




BCS 


PAGE1 




61C6: 


AC 


08 


60 


232 


PAGE2 


LDY 


YS2 




61C9: 


B9 


3F 


62 


233 




LDA 


YBLOCKH.Y 




6 ICC: 


18 






234 




CLC 




61CD: 


69 


20 




235 




ADC 


#$20 : ADD TO REFRENCE SCREEN 2 MEMORY 


61CF: 


85 


FC 




236 




STA 


HIRESH 




61D1: 


B9 


57 


62 


237 




LDA 


YBLOCKL, Y 





233 



61D4: 
61D6: 

61D9: 
61DC: 
6 IDE: 



85 FB 
AC 12 

B9 8F 
85 FD 
A9 60 



238 
60 239 
2A0 
62 241 
242 
243 
244 



61E0: 


8D 


OE 


60 


245 


61E3: 


AC 


06 


60 


246 


61E6: 


4C 


06 


62 


247 


61E9: 


AC 


07 


60 


248 


61EC: 


B9 


3F 


62 


249 


61EF: 


85 


FC 




250 


61F1: 


B9 


57 


62 


251 


61F4: 


85 


FB 




252 


61F6: 


AC 


11 


60 


253 


61F9: 


B9 


8F 


62 


254 


61FC: 


85 


FD 




255 


61FE: 


A9 


40 




256 


6200: 


8D 


OE 


60 


257 


6203: 


AC 


05 


60 


258 


6206: 


A9 


63 




259 


6208: 


85 


FE 




260 


620A: 


60 






261 
262 


620B: 


A9 


00 




263 


620D: 


85 


FB 




264 


620F: 


A9 


20 




265 


6211: 


85 


FC 




266 


6213: 


AO 


00 




267 


6215: 


A9 


00 




268 


6217: 


91 


FB 




269 


6219: 


C8 






270 


621A: 


DO 


FB 




271 


62 1C: 


E6 


FC 




272 


621E: 


A5 


FC 




273 


6220: 


C9 


40 




274 


6222: 


90 


EF 




275 


6224: 


60 






276 
277 


6225: 


A9 


00 




278 


6227: 


85 


FB 




279 


6229: 


A9 


40 




280 


622B: 


85 


FC 




281 


62 2D: 


AO 


00 




282 


622F: 


A9 


00 




283 


6231: 


91 


FB 




284 


6233: 


C8 






285 


6234: 


DO 


FB 




286 


6236: 


E6 


FC 




287 


6238: 


A5 


FC 




288 


623A: 


C9 


60 




289 


623C: 


90 


EF 




290 


623E: 


60 






291 
292 


623F: 


20 


20 


21 




6242: 


21 


22 


22 







STA 


HIRESL 




LDY 


TR0T2 




LDA 


SHPLO.Y 




STA 


SHPL 




LDA 


#$60 


*FOR END OF 8 


1 LINES - PG 




STA 


BOTTOM 




LDY 


XS2 




JMP 


SKIPPY 


PAGE1 


LDY 


YS1 




LDA 


YBLOCKH.Y 




STA 


HIRESH 




LDA 


Y BLOCK L,Y 




STA 


HIRESL 




LDY 


TR0T1 




LDA 


SHPLO , Y 




CTA 
JlA 


SHPL 




LDA 


#$40 




STA 


BOTTOM 




LDY 


XS1 


SKIPPY 


LDA 


#>SHAPES 




STA 


SHH 




RTS 




*CLEAR 


SCRFFN 


SUBROUTINE 


CLRSCR 


LDA 


#$00 




STA 


HIRESL 






#$20 




STA 


HIRESH 


CLR1 


LDY 


#$00 




LDA 


#$00 


CLR2 


STA 


(HIRESL) , Y 




INY 






BNE 


CLR2 




INC 


HIRESH 




LDA 


HIRESH 




CMP 


#$40 




BCC 


CLR1 




RTS 




*CI FAR 




2 SUBROUTIN 


CLRSCR2 


LDA 


#$00 




STA 


HIRESL 




LDA 


#$40 




STA 


HIRESH 


CLR3 


LDY 


#$00 




LDA 


#$00 


CLR4 


STA 


(HIRESL) ,Y 




INY 






BNE 


CLR4 




INC 


HIRESH 




LDA 


HIRESH 




CMP 


#$60 




BCC 


CLR3 




RTS 





; SETUP POINTER TO CORRECT SHAPE 



;THIS WILL CORRECT DRAWING TEST 



;LOOK UP HI BYTE OF LINE 



; DISPLACEMENT INTO LINE 



*TABLES OF STARTING VALUE OF EACH OF 20 BLOCKS 



6245: 


23 


23 


20 










6248: 


20 






293 


YBLOCKH 


HEX 


20202121222223232020 


6249: 


21 


21 


22 










624C: 


22 


23 


23 










624F: 


20 


20 


21 










6252: 


21 






294 




HEX 


21212222232320202121 


6253: 


22 


22 


23 










6256: 


23 






295 




HEX 


22222323 


6257: 


00 


80 


00 










625A: 


80 


00 


80 










625D: 


00 


80 


28 










6260: 


A8 






296 


YBLOCKL 


HEX 


008000800080008028A8 


6261: 


28 


A8 


28 










6264: 


A8 


28 


A8 










6267: 


50 


DO 


50 










626A: 


DO 






297 




HEX 


28A828A828A850D050D0 


626B: 


50 


DO 


50 










626E: 


DO 






298 
299 


* 


HEX 


50D050D0 


626F: 


00 


01 


01 










6272: 


01 


00 


FF 










6275: 


FF 


FF 




300 


XT 


HEX 


0001010100FFFFFF 


6277: 


00 


01 


01 










627A: 


01 


00 


FF 










627D: 


FF 


FF 




301 




HEX 


0001010100FFFFFF 


627F: 


FF 


FF 


00 










6282: 


01 


01 


01 










6285: 


00 


FF 




302 


YT 


HEX 


FFFF0001010100FF 


6287: 


FF 


FF 


00 










628A: 


01 


01 


01 










628D: 


00 


FF 




303 
304 


* 


HEX 


FFFF0001010100FF 


628F: 


03 






305 


SHPLO 


DFB 


SHAPES 


6290: 


OB 






306 




DFB 


SHAPES+$08 


6291: 


13 






307 




DFB 


SHAPES+$10 


6292: 


IB 






308 




DFB 


SHAPES+$18 


6293: 


23 






309 




DFB 


SHAPES+$20 


6294: 


2B 






310 




DFB 


SHAPES+$28 


6295: 


33 






311 




DFB 


SHAPES+$30 


6296: 


3B 






312 




DFB 


SHAPES+$38 










313 


*NEXT GROUP BECAUSE PADDLE (0-15) : 










314 


*SHAPE TABLE 


TWICE 


6297: 


03 






315 




DFB 


SHAPES 


6298: 


OB 






316 




DFB 


SHAPES+$08 


6299: 


13 






317 




DFB 


SHAPES+$10 


629A: 


IB 






318 




DFB 


SHAPES+$18 


629B: 


23 






319 




DFB 


SHAPES+$20 


629C: 


2B 






320 




DFB 


SHAPES+$28 


629D: 


33 






321 




DFB 


SHAPES+$30 


629E: 


3B 






322 
323 
324 


« 

SPACE 


DFB 
DS 


SHAPES+$38 
100 










325 


*ROCKET 


SHAPES 


6303: 


00 


08 


08 










6306: 


08 


1C 


1C 










6309: 


36 


00 




326 
327 


SHAPES 
*2ND 


HEX 


000808081C1C3600 



630B: 00 00 20 
630E: 14 OF 1C 
6311: 08 08 328 

329 *3RD 

6313: 00 00 02 
6316: OE 7C OE 
6319: 02 00 330 

331 *4TH 

631B: 00 08 08 
631E: 1C OF 14 
6321: 20 00 332 

333 *5TH 

6323: 00 00 36 
6326: 1C 1C 08 
6329: 08 08 334 

335 *6TH 

632B: 00 08 08 
632E: 1C 78 14 
6331: 02 00 336 

337 *7TH 

6333: 00 00 20 
6336: 38 IF 38 
6339: 20 00 338 

339 *8TH 

63 3B: 00 00 02 
633E: 14 78 1C 
6341: 08 08 340 



— END ASSEMBLY — 
ERRORS : 
835 BYTES 



HEX 0000201 40F1C0808 

HEX 0000020E7C0E0200 

HEX 0008081C0F142000 

HEX 0000361C1C080808 

HEX 0008081C78140200 

HEX 00002038 1F382000 

HEX 0000021 4781C0808 



CHAPTER 7 

GAMES THAT SCROLL 



Scrolling games are dynamic in nature, in that the entire background moves 
as the player traverses the game's terrain. True scrolling arcade games, such as 
Pegasus II on the Apple, or Scramble and Rally X in the arcades, have multi- 
screen worlds which scroll on or off the screen as the player's plane or car 
moves. These games show only a window or part of the entire background 
world at one time. They differ from games that have background stars and 
aliens that appear to be traveling towards you from top to bottom. Scrolling 
games have objects or terrain in relatively stable positions within the game's 
world. They can be reached by traveling to that particular section of the world. 
And this technique isn't just limited to arcade games. Ultima, an adventure 
game, uses a large map that scrolls as the player moves around. Your screen 
view is only a small window on the game's world. 



64 
UNITS 



k 

ULTIMA MAP 

The data that generates these maps is stored in large arrays. A game like 
Ultima has a map 64 units square, with each block 14 pixels wide by 16 lines 
deep. If one byte is used to store which shape is used for each block, 4K of 
memory is needed. There is a reason why 64 units was chosen for a side. When 
referencing the location of your viewing window, which is located at position 
XS, YS on the large map, you retrieve data from a table or array, in which 
each row of blocks is stored $40 below the previous row. Sixty-four units per 
side is not etched in concrete, but some multiple of 16 is convenient. A map 128 
units by 32 units would also work well. 



XS,YS 

\ 
T 

12 

i 



h*— 20 — >i 






TV 
SCREEN 







BLOCK OR UNIT 



T 



16 LINES 



♦I 14 PIXELS \*- 



64 UNITS 



237 



Games like Pegasus II on the Apple allow as many as ten screen lengths to 
scroll past the viewer before repeating. The horizontal scrolling is done a byte 
at a time and the data is stored in tables. Pegasus II, which uses page flipping 
to smooth the animation, gains added speed by scrolling only sections of the 
screen. 

tt ^ ^ g ° ing t0 deVel ° P a scrollin S 8 a ™ much like Pegasus 

II. It will be defined ,n much more detail than my previous examples, vet it 
won t be complete. Aliens will appear, but they won't shoot back. You'll be 
able to kill the aliens with your lasers and accumulate points as you do so, but 
you 11 find that there is no finish, nor even a goal. Consider the unfinished 
game a test bench to develop your graphics skills. 

The first step is to define and develop a fast scrolling subroutine. Since it is 
T'VZ ? JeCtS horizontall y one byte per animation frame, our scrolling 

should be linked with that speed if objects are to remain synchronzied with the 
terrain. A counter can be used to determine the screen's location within our 
much larger world. With the counter limited to 256 and screen scrolling set at 7 
pixels per frame, the most logical length for a world would be 1792 Pixels or 
seven screen lengths. 




79 119 
COUNTER 



159 



199 



1791 
239 255 279 



When the counter reaches 256, it wraps back to zero for a repeat of screen 
ffl. You have to be careful when approaching the upper end of the database 
Once the counter indexes beyond 215, it begins accessing data beyond the 
1791st position. This can be remedied by enlarging the table to 2048 data 
points, with the last 279 points a duplicate of the first 279 points. The terrain 
level at the end of the seventh screen should match the terrain level at the 
beginning of the first frame, as shown above. 

The data points are Y axis screen coordinates (0-191) for each of the 1792 
positions along the X axis. The data was placed into the table by an Applesoft 
program called Mountain Maker. It takes a series of X,Y points corresponding 
to each change in direction of our terrain and, by simple slope equations 
generates the data points in between. The program is listed below 
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5 DIM NAME$(20) 

10 TEXT : HOME : PRINT : PRINT " MOUNTAIN BACKGROUND GENE 
RATOR" 

20 PRINT : HTAB 15: PRINT "WORKING" 

25 SH = 4000 

30 START = 16384 

35 J = START 

40 READ A,B 

50 X2 = A:Y2 = B 

60 READ C,D 

70 IF C = - 1 THEN 1000 

80 XI = X2:Y1 = Y2:X2 = C:Y2 = D 

90 SLOPE = (Y2 - Yl) / (X2 - XI) 

100 FOR I = XI TO X2 - 1 

105 Y = INT (Yl + (SLOPE * (I - XI))) 

110 POKE J,Y 

120 J = J + 1 

130 NEXT I: GOTO 60 

150 END 

1000 POKE J,Y2 

1010 PRINT : INPUT "DATABASE NAME ?";NAME$ 

1020 PRINT "BSAVE";NAME$;",A$";SH;",L$2000" 

2000 DATA 0,10,80,40,175,25,250,65,335,20,375,32 

2010 DATA 625,32,700,15,750,70,900,45,1070,90 

2020 DATA 1190,12,1220,20,1320,10,1350,17,1440,5 

2030 DATA 1500,40,1540,100,1610,50,1640,40,1710,5 

2040 DATA 1730,5,1810,15,1840,15,1870,35,1900,25,1920,55,19 

50,30,1980,55 

2050 DATA 2047,10,-1,-1 



tnt™ v S g subroudne works as follows. Each time the position counter, 
INDEX, is incremented, it adds seven to the lo byte of a pair of zero pare 
pointers, GROUNDL and GROUNDH, through a multi-byte addition 
lnese pointers index into a table called NEW MOUNTAINS, stored at 
$4000. Starting with the first data point located at GROUNDH GROUNDL 
the routine plots that point at X = 0. It increments the lo byte of the data 
point, then plots the second point at X = 1 . It does that until all 280 points are 
plotted. Plotting is accomplished by EORing the proper pixel to the screen. 
When it is finished plotting, it reloads GROUNDH and GROUNDL then 
EORs all the points off the screen. Note that GROUNDH and GROUNDL 
are not changed during the plotting phase because zero page locations $4 and 
$5 were used to store the pointers. When these are incremented, it doesn't 
affect our original pointers, which are stored elsewhere. 



BE | BD 


BB 


B9 


BA 


BB 


BC 



B8 
B9 
BA 
BB 
BC 
BD 
BE 
BF 



t 



7} NEW MTS TABLE 



GROUNDL, GROUNDH 



Position on screen 



1 2 3 4 5 
SCREEN X 



6 7 



The terrain does flicker excessively because it is off the screen as much as on 
the screen. I'm sure ambitious readers will want to rewrite the subroutine, or 
convert the entire program to page flipping. 

The second step in developing the game is to devise a method for determin- 
ing whether an object is on or off the screen. This depends on the location of the 
object in our multi-screen long world in relation to that of the screen's moving 
window. Obviously, the two must coincide for the object to appear 
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Our viewing window is controlled by the counter, INDEX (0-255). We see 
the terrain in that window from INDEX * 7 to (INDEX + 39) * 7. While our 
terrain is stored as individual data points for each pixel, our shapes are stored 
and plotted as data bytes at a particular horizontal position (0-39). 

Fortunately, the choice of moving the terrain seven pixels (or one screen byte 
to the left with each frame) synchronizes with the easiest method of moving a 
raster shape in the same direction. Single byte moves require no offset shape 
tables. 

Objects can be assigned reference positions corresponding to their horizontal 
byte location (0-255) in our seven screen long world. A table of these values is 
stored in ONPOS. Each object's vertical position is correspondingly stored in a 
table TABLEY. TABLEX contains the object's current screen position (0-39). 
This value changes during each frame, regardless of whether the object 
remains stationary with respect to the terrain. 

An object first appears on the scrolling screen at the far right when INDEX 
= > ONPOS( OBJ # ). The ONPOS value for an object is not actually its true 
horizontal position, but one that is offset by 39 bytes. 




0th Byte 38th Byte 



INDEX ONPOS ( OB J#) 



The object moves left one byte exactly in step with the ground movement 
with each successive animation frame. The value of TABLEX ( OBJ # ) is set 
originally to X =38 or $26. X is set to 38 rather than 39 because our alien 
shape is two bytes wide, and we would like to plot its full shape on the screen's 
right side rather than half of its shape. During each successive cycle, we decre- 
ment the X position in TABLEX table and test each time for a value less than 
zero. If so, we are now off the screen, and we set the ONFLAG ( OBJ #) = 
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>■ TAKE OBJECT 



no=0 



TEST IF OBJECT ACTIVE 



yes 



ON FLAG ON? 



no 



yes=l 



update 



no 



XDRAW OBJECT 



IS INDEX => ON POSITION 



yes=l 



yes 



I 



MOVE OBJECT 



no 



USED ALREADY FLAG ON?"] 
no 



DECREMENT X POSITION 



SET ONFLAG ON 

SET USED ALREADY FLAG ON 



IS X POS. >0? 
(AT FAR LEFT?) 



DRAW INITIAL POSITION 
OF OBJECT AT FAR RIGHT 
_X=38 ($26) 



yes 



no 



DRAW OBJECT AT 
NEW POSITION 



. ve s 

XDRAW ^ — I COL LISION ? 
OBJECT ' 



ALIVE FLAG=0 
ON FLAG = 



no 



ONFLAG=0 
(OFF) 

ZZE" 



NEXT OBJECT 



I 



DONE ALL OBJECTS ? 



yes 



INCREMENT INDEX 



INDEX = 0? 



yes 



RESET ALL ALREADY 
USED FLAGS TO 



REST OF PROGRAM \ <- 



There are several flags that are required to keep track of certain aspects of 
the game. The ONFLAG ( OBJ # ) is used to determine if the object is to be 
actively plotted on the screen. Assuming our object is actually alive, ALIVE ( 
OBJ # ) = 1 and not dead ( value = ), then the ONFLAG ( OBJ # ) is tested. 
If this flag was turned on because the object meets the INDEX = > ONPOS ( 
OBJ # ) test, it will appear for the next 38 cycles unless it is destroyed by your 
ship's laser. In either case, when the object reaches the end of its time on the 
screen, the ONFLAG ( OBJ # ) flag is set to off, or zero. 

There is one additional flag. That is the USFLAG, or used-already flag. It is 
necessary because if, for example, an object were to appear on the screen when 
INDEX = 50 and vanish at INDEX = 88, without this flag being set equal to 
one (off), the object would again meet the requirements of INDEX = > 
ONPOS ( OBJ # ) as soon as the ONFLAG (OBJ #) was zero. The object 
would appear every 38 screen cycles after it first appeared until INDEX wrap- 
ped around to become zero again. The object should appear only once over the 
(0-255) INDEX cycle. Incidentally, once all objects have been tested and plot- 
ted and INDEX = again, the program resets all USFLAG ( OBJ #) =0 so 
that they will reappear over the same terrain if they are still alive. 

Collisions are tested during the draw routine. The collision flag, KILL, is set 
if any lit pixel occupies the screen positions, where an alien or saucer shape is 
drawn. The test is made by logically ANDing the shape with the screen. A non- 
zero value will set the flag. If a collision is detected, the alien is immediately 
XDRAWn off the screen, and both the ALIVE flag and the ONFLAG are set 
to zero (off) for that object. Of course, in a real game, you wouldn't have an 
alien simply disappear, but would either plot the shape of an explosion or blow 
it up dramatically; a fitting end that any alien who travels so far and fights so 
valiantly deserves. 

I'll admit that the routine is quite complex and did require considerable 
planning and thought, but I hope that the accompanying flow chart will make 
it clear. Remember that this code is looped for each object successively until all 
objects are tested. Only then does it increment INDEX before proceeding on 
with the rest of the program. 

Flexibility for displaying a variety and a large number of shapes, plus the 
ability to change the placement of these shapes, was designed into the program. 
This becomes extremely helpful during the play test when the quantity of 
targets and types are liable to change frequently. Ground based laser, radar 
and rocket bases, plus a dozen city buildings were envisioned as targets spread 
out over seven screens. While only eight different shapes were contemplated, 
ten of one type might be needed, while only three of another type might be 
used. 

Because of this special need, a table called SHPADR was conceived. It 
would hold the shape type for each, and as many as 256 targets. The shapes 
would be stored in a shape table called SHAPES. Since each shape was two 
bytes wide by eight lines deep, and we need both even and odd offset shape 
tables for color, thirty two bytes would be required for each shape. To keep the 
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table within one page boundary ( 256 bytes ), the scheme was limited to eight 
shapes. & 



SHAPES 



SHAPE #0 


EVEN 


SHAPE #1 


EVEN 






SHAPE #7 


EVEN 


SHAPE #0 ODD 



THE 8 ODD OFFSET SHAPES 
FOLLOW THE 8 EVEN OFFSET 
SHAPES IN THE TABLE 
CALLED SHAPES. 



Another table, called SHPLO, is used to reference the lo byte of each shape 

tin u CS 'I , tablC arC P ermanentl y s et, starting at $00 and increasing by 
$10 with each shape. However, because we are using only two shapes in this 
example, and loading the shape table after assembling is an extra step it is 
easier during program development to have the assembler construct the 'table 
for us by using the DFB pseudo-op code to define the lo order byte 
Thus, the SHPLO table is constructed as follows for the two shapes: 

SHPLO DFB SHAPES ;L0 BYTE ALIEN EVEN OFFSET 

DFB SHAPES+$10 ;L0 BYTE SAUCER EVEN OFFSET 

DFB SHAPES+$20 ;L0 BYTE ALIEN ODD OFFSET 

DFB SHAPES+$30 ;L0 BYTE SAUCER ODD OFFSET 

The table SHPADR for seven objects either points to shape #0 (alien) or 
shape #1 (saucer). It actually indexes into SHPLO to set the proper pointers. 



EVEN 



LDY 
LDA 
STA 



SHPADR, Y 
SHPLO, Y 
SHPL 



; WHERE X IS THE OBJECT # 

; PROPER L0 BYTE OF EVEN OFFSET SHAPE 



Z^c C ^JV h l °? d ° ffset is Similar ' y° u have to index ^to the odd 

naif ot tmFLO which, in this case, begins with the third byte. 



ODD 



LDY 
LDA 
STA 



SHPADR, X 

SHPL0+2 , Y ; PROPER L0 BYTE OF ODD OFFSET SHAPE 
SHPL 
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#0 #1 #2 #3 #4 #5 #6 #7 
SHPADR loolOOloi |00 |00 1 00 1 00 1 01 



#0 



#2 



#3 



SHPLO 



08 
EVEN 
ALIEN 



71 



10 



18 



20 



EVEN ODD ODD 
SAUCER ALIEN SAUCER 



SHAPES $6908 


SHAPE 


#0 


EVEN 


$6910* 


SHAPE 


#1 


EVEN 


$6918 


SHAPE 


#0 


ODD 


$6920 


SHAPE 


#1 


ODD 



For example, if you were to look for object #2 (X reg = 2), which is an even 
number, the even code would reference $01 for the SHPADR table. This in 
turn would point to the #1 element in SHPLO. Thus, the code would be stored 
$10 in SHPL. The high byte $69 would be stored in SHPH. 

In the event that you chose to place these tables into a permanent location, 
skip the construction of the SHPLO table. Instead, the SHPADR table con- 
tains the lo byte for each shape. The SHPADR table's length is doubled, for it 
now contains the locations of both the even and odd shapes. 



SHAPES $7000 


SHAPE 


#0 EVEN 


$7008 


SHAPE 


#1 EVEN 


$7010 


SHAPE 


#0 ODD 


$7018 


SHAPE 


#1 ODD 



SHPADR 



#0 


#1 


#2 


#3 


#4 


#5 


#6 


#7 


00 


00 


08 


00 


00 


00 


00 


08 


10 


10 


18 


10 


10 


10 


10 


18 



The corresponding code is as follows: 

EVEN LDY SHADR , X 
STA SHPL 



ODD LDY SHPADR+8 , X 
STA SHPL 
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You can see that this is actually simpler code. If you wish to keep separate 
shape tables independent ofthe main program's code, then this is the preferred 
method. However, it does involve loading your shape table into memory when 
testing a program. 

ORDER OF EVENTS IN GAME 

The sequence of events in any game is important. Sometimes the order is 
dictated by tests performed by various routines. It becomes obvious that you 
can't test for a collision of an alien with a laser beam unless the laser is drawn 
on the screen first. You can't determine if your ship collides with an alien 
unless the ship is drawn last. Unfortunately, something is always last. A colli- 
sion ofthe ship with an alien at this point in the sequence requires testing each 
alien's screen coordinates to determine which one hit the ship. 

The mountains were drawn afterwards to minimize the objects' screen 
flicker. Since the mountain routine takes considerably longer to draw than the 
rest ofthe objects combined, it acts as a time delay, allowing the objects to re- 
main on the screen longer than they are off. Because the mountains are drawn 
after the ship's collision test, a separate test was devised for mountain colli- 
sions. The code compares the ship's vertical position with the vertical value of 
the mountain data drawn directly beneath it. The ship's vertical position must 
be less than the value referenced in the mountain data table (i.e, ship is above 
mountains). Remember that MTOFFL and MTOFFH points to the begin- 
ning position in the table from which the scroll subroutine draws the next 280 
points ofthe mountain background. The tip ofthe ship is located at X =84 or 
$55. The collision test is at the nose, so $55 is added to MTOFFL Since the 
carry is not cleared when $55 is added to the offset location of the mountain 
table, an overflow m the lo byte, which is a carry set, automatically increments 
the hi byte value. Both the lo and hi byte values are stored at $09 and $0A 
respectively, in the zero page. These were chosen as scratch memory locations 
in zero page to do an indirect indexed load, (LDA ($09), Y) , where the Y 
register is zero. This obtains the value ofthe mountain pixel directly below the 
ship s nose, and with only one instruction! This is compared with the vertical 
position ofthe ship's bottom. If the value in the mountain table is greater there 
is no collision. ' 



> READ PADDLE #1 



IS BUTTON #1 PRESSED? 

ZI 



no 



yes 



FIRE & DRAW LASER 



DRAW ALIEN & TEST FOR COLLISION 



IS KILL DETECTED? 



yes 



no 



XDRAW ALIEN 
SET KILLED FLAG 
I 



NEXT ALIEN 



DONE WITH ALL ALIENS? 



,yes 



INCREMENT SCROLLING COUNTER 



DRAW SHIP & TEST FOR COLLSION 



COLLISION DETECTED? 



.yes 



EXPLODE SHIP 



no 



IS BUTTON #0 PRESSED? 



lyes 



DRAW BOMB 



| DRAW MOUNTAINS 



DETECT MT. COLLISION WITH PLANE 



| XDRAW LASER 



t 



XDRAW BOMB 



| XDRAW SHIP 



211 *DETECT FOR MT COLLISION 



212 


LDA 


PADDLEL 




213 


CLC 






214 


ADC 


#$55 


;TIP OF SHIP @84 


215 


STA 


$09 




216 


LDA 


PADDLEH 




217 


ADC 


#$40 


; LOCATION OF MOUNTAIN TABLE 


218 


STA 


$0A 




219 


LDY 


#$00 




220 


CLC 






221 


LDA 


VERT 




222 


ADC 


#$08 


; BECAUSE PDL IS AT TOP OF PLANE 


223 


STA 


TEMP 


; AND MOUNTAINS HIT BOTTOM 


224 


LDA 


($09) Y 




225 


CMP 


TEMP 




226 


BGE 


NOHIT 




227 


JMP 


EXPLODE 




228 NOHIT 


LDA 


VERT 











1 


^COMPLETE SCROLLING GAME 








2 




ORG 


$6000 


6000: 


4C 


21 


60 3 




JMP 


PROG 








4 


COUNT 


DS 










5 


INDEX 


DS 










6 


PADDLEL 


DS 


I 








7 


PADDLEH 


DS 


I 








8 


PDL 


DS 


I 








9 


TEMP 


DS 


j 








10 


TEMPI 


DS 










11 


S BLOCK 


DS 










12 


EBLOCK 


DS 










13 


VERT 


ns 










14 


TVERT 


DS 










15 


HORT7 












16 


OR T 

UDJ 












17 


LNGH 


uo 










18 


DEPTH 


DS 










19 


ST NGH 


DS 










20 


SHOT 


DS 










21 


LFLAG 


DS 










22 


ESET 


DS 










23 


BVERT 


DS 










24 


TBVERT 


DS 










25 


BVELY 


DS 










26 


RHORT7 


DS 










27 


RMI OCK 


DS 










28 


trmi nric 


DS 










29 


KILL 


DS 










30 


KT1 1 NIIM 


DS 










31 


SCORFA 


DS 










32 


SCORFB 


DS 










33 


SCORFC 


DS 










34 


HTRESL 

11 J_ IV LjfcJ Lj 


EQU 


$26 








35 


HTRFSH 


EQU 










36 


SHPL 


EQU 


$50 








37 


SHPH 


EQU 


our i_i^>p x 








38 


SSHPL 


EQU 


$52 








39 


SSHPH 


EQU 


$53 








40 


O 1 DO 1 Li 












41 






CTT7QTT j-<fc 1 








A? 


DKJt LDJ_i 


EQU 










43 


DuriDn 














PREAD 


EQU 


$FB1E 


6021 : 


AD 


50 


CO 45 


PROG 


LDA 




6024: 


AD 


52 


CO 46 




LDA 


$C052 


6027 : 


AD 


57 


CO 47 




LDA 


$C057 


602 A: 


20 


A4 


62 48 




JoR 


PT rc;pi? 






















50 


*T NTT 
1 i» 1 1 


T T 

J. Li 


T 7 & T T n 








51 








OUiU • 


AQ 


no 






LDA 


#$00 


602F: 


8D 


14 


60 53 




STA 


LFLAG 


6032: 


8D 


1 A 


60 54 




STA 


BML0CK 


6035 : 


8D 


1C 


60 55 




STA 


KILL 


6038: 


8D 


13 


60 56 




STA 


SHOT 








57 


*INITILIZE SCORE & PUT 01 


603B: 


A9 


20 


58 


SC0REI 


LDA 


#$20 


603D: 


85 


27 


59 




STA 


HIRESH 


603F: 


A9 


ID 


60 




LDA 


#$1D 



;JUMP TO START OF CODE 



; LOCATION OF SCORE WORDS 
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6041: 


85 


26 




61 




STA 


HIRESL 




6043: 


A9 


05 




62 




LDA 


#$05 




6045: 


8D 


10 


60 


63 




STA 


LNGH 




6048: 


A9 


6A 




64 




LDA 


#>SCOREWD 




604A: 


85 


51 




65 




STA 


SHPH 




604C: 


A9 


08 




66 




LDA 


#<SCOREWD 




604E: 


85 


50 




67 




STA 


SHPL 




6050: 


20 


E8 


66 


68 




JSR 


SCOREDR 


;PUT WORDS ON SCREEN 


6053: 


A9 


00 




69 




LDA 


#$00 


6055: 


8D 


IF 


60 


70 




STA 


SCOREB 




6058: 


8D 


20 


60 


71 




STA 


SCOREC 




605B: 


A9 


FF 




72 




LDA 


#$FF 






on 
oil 


It 


An 
OU 


/ 3 




STA 


SCOREA 


; FIRST TIME SCORE USED WILL— 


AnAn • 
DUDU : 


on 
oD 


ID 


OU 


"7 /. 

/4 




STA 


KILLNUM 


; INCREMENT TO 


duo j : 


on 


_>D 


A A 
DO 


75 




JSR 


SCORE 










76 


♦INITIALIZE SHIP POSITION 


6066: 


A9 


03 




77 




LDA 


#$03 




6068: 


8D 


12 


60 


78 




STA 


SLNGH 




606B: 


A9 


D7 




79 




LDA 


#<SHIP 




606D: 


85 


52 




80 




STA 


SSHPL 




606F: 


A9 


68 




81 




LDA 


#>SHIP 




6071: 


85 


53 




82 




STA 


SSHPH 




6073: 


A9 


BF 




83 




LDA 


#<MSHIP 




6075: 


85 


54 




84 




STA 


STESTL 




6077: 


A9 


68 




85 




LDA 


#>MSHIP 




6079: 


85 


55 




86 




STA 


STESTH 




607B: 


A9 


50 




87 




LDA 


#$50 




607D: 


8D 


OC 


60 


88 




STA 


VERT 












89 


♦INITIALIZE START OF SCROLL 


6080: 


A9 


00 




90 




LDA 


#$00 




6082: 


8D 


04 


60 


91 




STA 


INDEX 




6085: 


8D 


05 


60 


92 




STA 


PADDLEL 




6088: 


8D 


06 


60 


93 
94 


* 


STA 


PADDLEH 












95 


*M A I N 


P 


R G R A M 


LOOP 










96 


# 
















97 


*READ PADDLE 


#1 




608B: 


A2 


01 




98 


START 


LDX 


#$01 




608D: 


20 


IE 


FB 


99 




JSR 


PREAD 




6090: 


CO 


B8 




100 




CPY 


#$B8 


;CLIP VALUE (0-183) 


6092: 


90 


02 




101 




BLT 


SKIPP 


6094: 


AO 


B7 




102 




LDY 


#$B7 




6096: 


8C 


07 


60 


103 


SKIPP 


STY 


PDL 




6099: 


98 






104 




TYA 






609A: 


CD 


OC 


60 


105 




CMP 


VERT 


;PADDLE<VERT POS THEN SUBTRACT 5 


609D: 


B0 


IE 




106 




BGE 


PADDLE3 


609F: 


AD 


OC 


60 


107 




LDA 


VERT 




60A2: 


38 






108 




SEC 






60A3: 


E9 


05 




109 




SBC 


#$05 




60A5: 


B0 


08 




110 




BGE 


PADDLE1 


;MAKE SURE =>0 


ouA/: 


A9 


00 




111 




LDA 


#$00 


60A9: 


8D 


OC 


60 


112 




STA 


VERT 




60AC: 


8D 


OD 


60 


113 




STA 


TVERT 




60AF: 


CD 


07 


60 


114 


PADDLE1 


CMP 


PDL 


; DON'T WANT TO GO PAST PADDLE POS 


60B2: 


B0 


03 




115 




BGE 


PADDLE2 




60B4: 


AD 


07 


60 


116 




LDA 


PDL 




Ann "7 . 
DUD / : 


8D 


OC 


60 


117 


PADDLE2 


STA 


VERT 




60BA: 


4C 


D3 


60 


118 




JMP 


PADDLE6 




60BD: 


CD 


OC 


60 


119 


PADDLE3 


CMP 


VERT 


;PADDLE>VERT POS THEN ADD 5 


60C0: 


F0 


OB 




120 




BEQ 


PADDLE4 





250 



60C2: 


AD 


OC 


60 


121 




LDA 


VERT 




60C5: 


18 






122 




CLC 






60C6: 


69 


05 




123 




ADC 


#$05 




60C8: 


CD 


07 


60 


124 




CMP 


PDL 


• TV"\W 'T U A MT TA PA DtCT T>A rmT T> 

,IAJN I w AN 1 IV bU rAbl PADDLE 


60CB: 


90 


03 




125 




BLT 




60CD: 


AD 


07 


60 


126 


PADDI.F4 


LDA 


PUT 




60D0: 


8D 


OC 


60 


127 


PADDLE5 


STA 


VERT 




60D3: 


8D 


OD 


60 


128 


PADDLE6 


STA 


TVERT 




60D6: 


20 


D3 


63 


129 




JSR 


LASER 


:FIRE LASER 










130 


*PUT ALIEN OBJECTS ON SCREEN AT PROPER TIMES 


60D9: 


A2 


00 




131 




LiUA 


ffVJU 




60DB: 


8E OF 60 


132 




QTV 

jlA 


nn t 




60DE: 


A9 


69 




133 




T TiA 


J)\CU A DCC 

ff>bHArbb 


;GET HI BYTE OF SHAPES 


60E0: 


85 


51 




134 




OTA 


cupu 
onrn 


60E2: 


A9 


02 




135 


NXT 


T DA 

LiUl\ 




;EACH SHAPE 2 BYTES WIDE 


60E4: 


8D 


10 


60 


136 




CTA 
ol A 


t wu 
LNbn 


60E7: 


AE 


OF 


60 


137 




T TlY 
LDA 






60EA: 


BD 


98 


68 


138 




I TIA 

LiUn 


at TVTT Y 
ALil VL , A 




60ED: 


DO 


03 




139 






TCCT 
J.E1O 1 


; ALIVE? 


60EF: 


4C 


7D 


61 


140 




TMp 


MfiP. T 


60F2: 


BD 


A6 


68 


141 


TEST 


LDA 


ONFT AT Y 




60F5: 


DO 


3E 




142 




BNE 


TTPTiATF 


■ TO /^\XTT?T A /"* AT npi T\\7 /urn 

;l£> UNrLAO ALREADY ON? 


60F7: 


BD 


AD 


68 


143 




T TIA 


nwpnc Y 


60FA: 


CD 


04 


fin 


144 




PMP 


TMTM7V 




60FD: 


BO 


7E 




145 






MfYR T 
IN UP J 




60FF: 


BD 


9F 


68 


146 




T T\\ 
LDA 


Ubr LAb , a 




6102: 


FO 


03 




147 








;IS USED ALREADY FLAG ON? 


6104: 


4C 


7D 


61 


148 




TMT> 
JrLr 


MAT} T 


6107: 


A9 


01 




149 


TEST1 


LDA 






6109: 


9D 


A6 


68 


150 




STA 


0NFLAG , X 


;SET ONFLAG ON 


610C: 


9D 


9F 


68 


151 




CTA 
O in 


TTCT?T AT Y 
Uor LAb , A 


610F: 


A9 


26 




152 




LDA 






6111: 


9D 


8A 


68 


153 




CTA 
O I A 


TART PY Y 
IADLEiA , A 


• TTDT"! A T*T? TAUT T? 


6114: 


BC 


B 


68 


154 




T TlY 

LiVi 


CWPATiP Y 
jrlrADK , A 


;WHILn llPhi bHAPE 


6117: 


B9 


BB 


68 


155 




T HA 
LDA 


CtlpT A V 

onr LU , I 


JwHfcKfc LO SHAPE IS 


611A: 


85 


50 




156 




9TA 

O In 


CHPT 


611C: 


BC 


91 


68 


157 




T rw 


TATIT PV Y 
1 ABLE. I | A 


I rUblllON 


611F: 


B9 


OA 


67 


158 




t nA 

LiUn. 


YVPPTT V 
1 V dKXLi , I 




6122: 


85 


26 




159 




STA 


HIRESL 




6124: 


B9 


CA 


67 


160 




LDA 


YVPPTH Y 




6127: 


85 


01 




161 




OT A 

ol A 


HlRtSH 




6129: 


AO 






162 




T TW 
LDI 


fflpZD 


;THIS IS X=38 FAR RIGHT 


612B: 


Qft 

7U 






163 




TYA 




612C: 




OA 


Do 


164 




STA 


TABLEX , X 


; UPDATE TABLE 


612F: 






A*} 


165 




JSR 


DRAW 


6132: 


4C 


7D 


61 


166 




JMP 


N0BJ 




6135: 


AE 


OF 


60 


167 


TTDnATT? 

UrUAlt, 


LDX 


OBJ 




6138: 


20 


9F 


63 


168 




TCP 


Ubll I Ur 




613B: 


20 


7D 


63 


169 




JSR 


XDRAW 




613E: 


AE 


OF 


60 


170 




LDX 


OBJ 




6141: 


DE 


8A 


68 


171 




DEC 


TABLEX, X 


;M0VE OBJECT LEFT ONE 


6144: 


BD 


8A 


68 


172 




LDA 


TABLEX, X 


6147: 


C9 


00 




173 




CMP 


#$00 




6149: 


10 


08 




174 




BPL 


PASS 


;>=0 THEN STILL ON SCREEN 


614B: 


A9 


00 




175 




LDA 


#$00 


614D: 


9D 


A6 


68 


176 




STA 


0NFLAG.X 




6150: 


4C 


7D 


61 


177 




JMP 


N0BJ 




6153: 


AE 


OF 


60 


178 


PASS 


LDX 


OBJ 




6156: 


20 


9F 


63 


179 




JSR 


DSETUP 




6159: 


20 


4E' 


63 


180 




JSR 


DRAW 





61 5C: 
615F: 
6161: 
6163: 
6166: 
6169: 
61 6C: 
616F: 
6171: 
6174: 
6177: 
617A: 
617D: 
6180: 
6183: 
6185: 
6187: 
618A: 
61 8D: 
6190: 
6192: 
6194: 
6196: 
6199: 
619A: 
619C: 
619E: 
61A1: 
61A4: 
61A7: 



AD 1C 
C9 00 
F0 1A 
AE OF 
20 9F 
20 7D 
AE OF 
A9 00 
9D 98 
9D A6 
8D 1C 
20 5D 
EE OF 
AD OF 
C9 07 
FO 03 
4C E2 
EE 04 
AD 04 
DO OC 
AO 00 
A9 00 
99 9F 
C8 

CO 08 
DO F6 
20 33 
20 BE 
20 89 
20 01 



60 181 
182 
183 
60 184 
63 185 
63 186 
60 187 
188 
68 189 
68 190 
60 191 
66 192 
60 193 
60 194 
195 
196 
60 197 
60 198 
60 199 
200 
201 
202 
68 203 
204 
205 
206 

63 207 
62 208 

64 209 
62 210 



NOBJ 



TEST2 



AGAIN 



PASS1 



LDA 

CMP 

BEQ 

LDX 

JSR 

JSR 

LDX 

LDA 

STA 

STA 

STA 

JSR 

INC 

LDA 

CMP 

BEQ 

JMP 

INC 

LDA 

BNE 

LDY 

LDA 

STA 

INY 

CPY 

BNE 

JSR 

JSR 

JSR 

JSR 



KILL 

#$00 

NOBJ 

OBJ 

DSETUP 

XDRAW 

OBJ 

#$00 

ALIVE, X 

ONFLAG , X 

KILL 

SCORE 

OBJ 

OBJ 

#$07 

TEST2 

NXT 

INDEX 

INDEX 

PASS1 

#00 

#$00 

USFLAG , Y 

#$08 
AGAIN 
SSETUP 
SDRAW 
BOMB 
SCROLL 



; REMOVE ALIEN 

;SET OBJECT TO DEAD 
;TURN OFF ON FLAG 
; RESET KILL DETECTOR 

;NEXT OJECT 

;DONE WITH ALL? 

; UPDATE SCROLL COUNTER 

; RESET ALL ALREADY USED FLAGS TO 



61AA: 








211 


*DETECT 


FOR MT COLLIS 


AD 


05 


60 


212 




LDA 


PADDLEL 


61AD: 


18 






213 




CLC 


61AE: 


69 


55 




214 




ADC 


#$55 


61B0: 


85 


09 




215 




STA 


$09 


61B2: 


AD 


06 


60 


216 




LDA 


PADDLEH 


61B5: 


69 


40 




217 




ADC 


#$40 


61B7: 


85 


OA 




218 




STA 


$0A 


61B9: 


AO 


00 




219 




LDY 


#$00 


61BB: 


18 






220 




CLC 


61BC: 


AD 


OC 


60 


221 




LDA 


VERT 


61BF: 


69 


08 




222 




ADC 


#$08 


61C1: 


8D 


08 


60 


223 




STA 


TEMP 


61C4: 


Bl 


09 




224 




LDA 


($09), Y 


61C6: 


CD 


08 


60 


225 




CMP 


TEMP 


61C9: 


BO 


03 




226 




BGE 


NOHIT 


61CB: 


4C 


13 


65 


227 




JMP 


EXPLODE 


6 ICE: 


AD 


OC 


60 


228 


NOHIT 


LDA 


VERT 


61D1: 


8D 


OD 


60 


229 




STA 


TVERT 


61D4: 


20 


33 


63 


230 




JSR 


SSETUP 


61D7: 


20 


FD 


62 


231 




JSR 


SXDRAW 


61DA: 


20 


14 


64 


232 


FIN 


JSR 


XLASER 


61DD: 


20 


F7 


64 


233 




JSR 


BOMBX 



;TIP OF SHIP @84 



; LOCATION OF MOUNTAIN TABLE 



; BECAUSE PDL IS AT TOP OF PLANE- 
;AND MOUNTAINS HIT BOTTOM 



61E0: 
61E3: 
61E5: 
61E7: 
61EA: 
61EC: 



AD ID 
C9 07 
DO 16 
AD 04 
DO 11 
A9 00 



234 
60 235 
236 
237 
60 238 
239 
240 



*TEST IF 
RSETAL 



ALL ALIENS KILLED AND RESET WHEN INDEX=0 
LDA KILLNUM 



CMP 
BNE 
LDA' 
BNE 
LDA 



#$07 

RSETAL2 

INDEX 

RSETAL2 

#$00 



; CHECK IF START OF TERRAIN 
; RESET 



252 



61EE: 


8D 


ID 


ou 


9A1 
Zfl 




CT A 

MA 


KILLNUM 




61F1: 


A2 


00 




9A9 
ztz 






■it * r»r» 




61F3: 


A9 


01 




243 




LDA 


ff$Ul 




61F5: 


9D 98 


68 


244 


RCT?TAT 1 


Oi A 


AT TUT? V 

ALlVr., a 




61F8: 


E8 






9A^ 

z*o 




TUV 




61F9: 




UV 




246 




CPX 


#$07 




ui r d • 


DO 


F8 




9A7 
Z** / 




Dim 


Kafcl AL1 




£ 1 VT\* 
DlrU. 


EA 






I/O 

z*+o 


TIC 1 17 T 1 » T 1 

KSEIAL2 


NOP 










on 


An 
ou 


9/. Q 

z^y 
9^n 

Z 3U 


* 


JMP 


START 












9S1 

Z Jl 


*S U B R 


U 


TINES ******** 










252 


* 
















9S^ 


*SCR0LLING ROUTINE SETUP 












9SA 

ZJ4 


* 










AD 


04 


An 
ou 


O R ^ 

Z jj 
Z DO 


SCROLL 
#_ 


LDA 


INDEX 


; COUNTER FOR WHERE YOU ARE INTO 
; TERRAIN 


6204: 


C9 


00 




9S7 
Z_) / 




CMP 


#$00 


;IF ZERO RESET GROUND TABLE POINTER 


OZUO . 


F0 


11 




ZJO 




BEQ 


RSET 




ozuo: 


18 






259 




CLC 






ozuy : 


AD 


05 


OU 


260 




LDA 


PADDLEL 


;EACH CYCLE ADVANCE 7 MORE INTO — 




69 07 




zol 




ADC 


#$07 


; GROUND ARRAY 


£90tt» 

UZVJE** 


8D 


05 


AH 

ou 


OAO 

zOz 




STA 


PADDLEL 


6211 : 


90 


03 




9£9 

ZU J 




BCC 


C 




£91 9» 
Oil j; 


EE 


06 


An 
OU 


zo4 




INC 


PADDLEH 




6216: 


4C 


21 


62 


265 


C 


JMP 


SC0NT 




£91 Q« 


A9 


00 




9££ 
ZOO 


RSET 


LDA 


#$00 


; RESET GROUND POSITION BACK TO 


£9 1 R- 


8D 


05 


£A 


9A7 
ZO / 




STA 


PADDLEL 




£91 1? • 

ozit.: 


8D 


06 


Ai~» 


268 

9£Q 
ZOV 


* 


STA 


PADDLEH 












970 
Z /U 


♦SCROLLING ROUTINE 












971 
Z / 1 


# 








6221 : 


A9 


02 




979 
•Liz. 


SC0NT 


LDA 


#$02 






8D 


03 


Aft 
OU 


979 
Z / J 




STA 


COUNT 


; COUNTER SO DRAWS 1ST TIME 


£99£ - 

ozzo : 


A9 


01 




07 A 
Z /4 


ERASE 


LDA 


#$01 




£99ft • 
OZZO • 


85 


08 




Z / j 




STA 


$08 


;BIT COUNTER 


£99A • 

ozza : 


A9 


00 




11C 

Z/O 




LDA 


#$00 


; START OF ARRAY LO BYTE 


A99P - 


85 


06 




T77 
Z/ / 




STA 


$06 




£991? • 


A9 


40 




278 




LDA 


#$40 


; START OF ARRAY HI BYTE 




85 


07 




97Q 

z /V 




STA 


$07 




£9**9 ■ 

DZ JZ ■ 


AD 


05 


ou 


zou 




LDA 


PADDLEL 


; OFFSET INTO ARRAY LO BYT 


oz jd : 


85 


04 




281 




STA 


$04 




£0*3 7 ■ 

dzj / : 


AD 


06 


0U 


282 




LDA 


PADDLEH 


; OFFSET HI BYTE 


ozja: 


29 


07 




283 




AND 


#$07 


;S0 NOT BEYOND TABLE 


£9^r • 


85 


05 




TO/, 

ZoH 




STA 


$05 


OZ JCj . 


A2 


00 




9Q^ 
ZO D 




LDX 


#$00 




0Z4U : 


18 






286 


LOOP 


CLC 






A9/i 1 • 


A5 


04 




ZO / 




LDA 


$04 


; OFFSET INTO TABLE (LO) 


£9 /■ 9 . 
0Z4J : 


65 


06 




TOO 
ZOO 




ADC 


$06 


; ADD BASE ADDRESS (LO) 


6245: 


85 


02 




289 




STA 


$02 


£9A7 - 


A5 


05 




zyu 




LDA 


$05 


; (Hi) 


£9AQ • 

OZ47 • 


65 


07 




ZV1 




ADC 


$07 




£9AR - 
OZ4D : 


85 


03 




zVz 

zyi 


*_ 


STA 


$03 


;REG 2&3 ACTUAL ADDRESS OF SPECI- 
FIC BYTE IN TABLE 


£.9 ATI* 


AO 


00 








LDY 


#$00 




£9 A F« 

0Z4r : 


Bl 


02 




one; 

zyD 




LDA 


($02), Y 


; ACTUAL VALUE AT THAT BYTE 


£9^1 • 
OZ31 • 


A8 






one 

zyo 




TAY 






6252: 


B9 


OA 


67 


9Q7 

Z7 / 




LDA 


YVERTL, Y 


; ADDRESS OF LINE ON SCREEN (LO) 


6255: 


85 


02 




298 




STA 


$02 


6257: 


B9 


CA 


67 


299 




LDA 


YVERTH , Y 


; (HI) 


625A: 


85 


03 




300 




STA 


$03 



253 



625C: 
625D: 
625E: 

6260: 
6262: 
6264: 
6266: 
6268: 
6269: 
626B: 
626D: 
626F: 
6271: 



8A 
A8 

Bl 02 

45 08 
91 02 
E6 04 
DO 09 
18 

A5 05 
69 01 
29 07 
85 05 
06 08 



6273: 10 CB 



6275: 
6277: 
6279: 

627A: 
62 7C: 
627E: 
6281: 
6284: 
6286: 



A9 01 
85 08 
E8 

EO 28 
DO C2 
CE 03 
AD 03 
C9 01 
90 IB 



6288: 
628B: 
628D: 
628F: 
6291: 
6294: 
6297: 
6299: 
629B: 
629D: 



AD 00 
10 10 
C9 9B 
DO OC 
2C 10 
AD 00 
10 FB 
C9 AO 
DO 03 
2C 10 



62AO: 4C 26 



62A3: 60 



301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
60 324 
60 325 
326 
327 
328 
329 
330 
CO 331 
332 
333 
334 
CO 335 
CO 336 
337 
338 
339 
CO 340 
341 
62 342 



343 
344 
345 
346 
347 



SKIP 



TXA 
TAY 
LDA 

EOR 
STA 
INC 
BNE 
CLC 
LDA 
ADC 
AND 
STA 
ASL 



($02),Y 
$08 

($02), Y 

$04 

SKIP 

$05 

#$01 

#$C7 

$05 

$08 



BPL LOOP 



62A4: 
62A6: 
62A8: 
62AA: 
62AC: 
62AE: 
62B0: 
62B2: 
62B3: 
62B5: 
62B7: 
62B9: 
62BB: 



A9 00 
85 26 
A9 20 
85 27 
AO 00 
A9 00 
91 26 
C8 

DO FB 
E6 27 
A5 27 
C9 40 
90 EF 



LDA 
STA 
INX 

CPX 
BNE 
DEC 
LDA 
CMP 
BLT 



#$01 
$08 



#$28 

LOOP 

COUNT 

COUNT 

#$01 

SKIP1 



X IS OFFSET INTO HI-RES LINE 

CONTAINS ADDRESS OF BEGINNING LINE 
NOW OFFSET INTO LINE 
NOW LEFT HAND DOT ON 

INCREMENT OFFSET FOR NEXT DOT (LO) 
IF HAVEN'T CROSSED 256 THEN SKIP 

INC. HI ORDER OFFSET FOR NEXT DOT 

MAKES WRAP AROUND INTO TABLE 

(IF HIT END OF TABLE) 

SHIFT LEFT INTO BYTE FOR NEXT 

DOT TO PLOT 

IF INTO BIT 7 THEN TOO FAR SO 
RESTORE TO 1 

RESTORE BIT COUNTER TO 1 

NEXT BYTE BECAUSE HAVE ALREADY 
DONE 7 DOTS 

SEE IF COMPLETELY ACROSS 40 BYTES 



;IF=1 ONLY HAVE DRAWN TERRAIN 
.•TERRAIN ALREADY DRAWN&XDRAWN , DONE 



*SINGLE STEP DEBUG PACKAGE 



CAUGHT 



IGNORE 



*_ 

SKIP1 



LDA $C000 

BPL IGNORE 

CMP #$9B 

BNE IGNORE 

BIT $C010 

LDA $C000 

BPL *-3 

CMP #$A0 

BNE IGN0RE+3 

BIT $C010 

JMP ERASE 

RTS 



;KEY PRESSED? 

;EXIT IF NO KEY PRESSED 

;ESC KEY? 

; CLEAR STROBE 
;KEY PRESSED 

;LOOP BY BRANCHING BACK 3 BYTES 
; SPACE KEY? 

;N0 DON'T CLEAR STROBE 
; CLEAR STROBE 

;ONLY DRAWN SO FAR; NOW GO TO ERAS 
;T0 DRAW AGAIN 



•CLEAR SCREEN SUBROUTINE 
# 



348 


CLRSCR 


LDA 


#$00 


349 




STA 


HIRESL 


350 




LDA 


#$20 


351 




STA 


HIRESH 


352 


CLR1 


LDY 


#$00 


353 




LDA 


#$00 


354 


CLR2 


STA 


( HIRESL ),Y 


355 




I NY 




356 




BNE 


CLR2 


357 




INC 


HIRESH 


358 




LDA 


HIRESH 


359 




CMP 


#$40 


360 




BCC 


CLR1 



254 



62BD: 60 



62BE: 
62CO: 
62C3: 
62C6: 
62C9: 
62CB: 
62CD: 
62CF: 
62D1: 
62D3: 
62D5: 
62D7: 

62DA: 
62DC: 
62DE: 
62E0: 
62E2: 
62E4: 
62E5: 
62E8: 
62EA: 
62ED: 
62F0: 
62F2: 
62F5: 
62F7: 
62F9: 
62FC: 



A9 00 
8D 15 
AC 0D 
20 1C 
A2 00 
Al 54 
29 7F 
31 26 
C9 00 
FO 05 
A9 01 
8D 15 

Al 52 
51 26 
91 26 
E6 54 
E6 52 
C8 

CE 12 
DO El 
EE OD 
CE 11 
DO Dl 
AD 15 
C9 00 
FO 03 
4C 13 
60 



361 
362 
363 
364 
365 
366 
60 367 
60 368 
63 369 
370 
371 
372 
373 
374 
375 
376 
60 377 
378 
379 
380 
381 
382 
383 
384 
60 385 
386 
60 387 
60 388 
389 
60 390 
391 
392 
65 393 
394 
395 
396 
397 



RTS 

♦ 

*DRAW SHIP SUBROUTINE 

*DRAW SHAPE ONE LINE AT A TIME-LNGH BYTES ACROSS 



SDRAW 
SDRAW1 



SDRAW2 



LDA 
STA 
LDY 
JSR 
LDX 
LDA 
AND 
AND 
CMP 
BEQ 
LDA 
STA 



SDRAW3 LDA 
EOR 
STA 
INC 
INC 
INY 
DEC 
BNE 
INC 
DEC 
BNE 
LDA 
CMP 
BEQ 
JMP 

SDRAW4 RTS 



#$00 
ESET 
TVERT 
GET ADR 
#$00 

(STESTL.X) 
#$7F 

(HIRESL) ,Y 

#$00 

SDRAW3 

#$01 

ESET 

( SSHPL, X) 
( HIRESL), Y 
(HIRESL), Y 
STESTL 
SSHPL 

SLNGH 
SDRAW2 
TVERT 
DEPTH 
SDRAW1 
ESET 
#$00 
SDRAW4 
EX LODE 



; VERTICAL POSITION 



;GET BYTE OF SHIP MASK SHAPE 
;MASK OUT HI BIT 
; (AND) IT AGAINST SCREEN 
; IF ANYTHING IN WAY GET>0 

;SET BECAUSE IF DON'T FINISH DRAW- 
ING SHIP, PIECE LEFT WHEN XDRAW 
; DURING EXPLOSION 
;GET BYTE OF SHIP'S SHAPE 

;PLOT 

;NEXT BYTE OF MASK 
; NEXT BYTE OF TABLE 
;NEXT SCREEN POSITION 

;IF LINE NOT FINISHED BRANCH 
; OTHERWISE NEXT LINE DOWN 

;DONE DRAWING? 
;IS EXPLOSION FLAG SET? 

;N0!, EXIT 
;YES! , EXPLODE SHIP 



*XDRAW SHIP SUBROUTINE 



62FD: 


AC 


OD 


60 


398 


SXDRAW 


LDY 


TVERT 


6300: 


20 


1C 


63 


399 




JSR 


GETADR 


6303: 


A2 


00 




400 




LDX 


#$00 


6305: 


Al 


52 




401 


SXDRAW2 


LDA 


( SSHPL, X) 


6307: 


51 


26 




402 




EOR 


( HIRESL ),Y 


6309: 


91 


26 




403 
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*XDRAW SEQ2-11BL0CKS 
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SBLOCK 



; RESET BOMB FALLING TO OFF 



XDRAW SHIP 



PLOT WHITE FIREBALL 4 LINES DEEP 



HORIZ POS SHIP'S CENTER 



VERT POS TOP OF SHIP 



TO REACH CENTER 



SHIP'S CENTER 



WHITE LINE 



;NEXT LINE 



;DONE? 



; DELAY 
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■*XDRAW SEQ5-1 
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*XDRAW SEQ6-1! 
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8D OB 
20 1A 
60 



661 A: AE OA 
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6643: 
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6647: 
6649: 
664C: 
664F: 
6651: 
6652: 
6655: 
6657: 
6659: 
665C: 



665D: 
6660: 
6663: 
6666: 
6668: 
666A: 
666C: 
666F: 
6672: 
6675: 
6677: 
6679: 
667B: 
667E: 
6681: 
6684: 
6686: 
6688: 
668A: 
668D: 



A9 03 
8D 11 
18 

AD OC 
69 04 
18 

7D 9A 
C9 00 

90 21 
C9 CO 
BO ID 
8D 09 
BD 44 
8D OE 
AC 09 
20 1C 
A9 FO 
51 26 

91 26 
CE 09 
CE 11 
DO EC 
E8 

EC OB 
DO C6 
A9 30 
20 A8 
60 



781 
60 782 
66 783 
784 
785 
786 
787 
60 788 
789 
790 
791 
792 
793 
794 
795 
69 796 



60 



60 



EE ID 
EE IE 
AD IE 
C9 OA 
90 29 
A9 00 
8D IE 
EE IF 
AD IF 
C9 OA 
90 1A 
A9 00 
8D IF 
EE 20 
AD 20 
C9 OA 
90 OB 
A9 00 
8D IE 
8D IF 



797 
798 
799 
800 
60 801 
69 802 
60 803 
60 804 
63 805 
806 
807 
808 
60 809 
60 810 
811 
812 
60 813 
814 
815 
FC 816 
817 
818 
819 
820 
60 821 
60 822 
60 823 
824 
825 
826 
60 827 
60 828 
60 829 
830 
831 
832 
60 833 
60 834 
60 835 
836 
837 
838 
60 839 
60 840 



LDA #$56 
STA EBLOCK 
JSR EPLOT 
RTS 

*EXPLOSION PLOTTING SUBROUTINE 



EPLOT LDX SBLOCK 



EPL0T1 LDA 
STA 

EL00P1 CLC 
LDA 
ADC 
CLC 
ADC 
CMP 
BLT 
CMP 
BGE 
STA 
LDA 
STA 
LDY 
JSR 
LDA 
EOR 
STA 
DEC 
DEC 
BNE 
I NX 
CPX 
BNE 
LDA 
JSR 
RTS 



ELC0P3 



NOPLOT 



#$03 
DEPTH 

VERT 
#$04 

EOFFY , X 

#$00 

NOPLOT 

#$C0 

NOPLOT 

TEMPI 

EOFFX.X 

HORIZ 

TEMPI 

GETADR 

#$F0 

(HIRESL) ,Y 
(HIRESL) ,Y 
TEMPI 
DEPTH 
EL00P3 

EBLOCK 
EPL0T1 
#$30 
$FCA8 



*SCORE SUBROUTINE 
* 



SCORE INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 

SC0RE10 INC 
LDA 
CMP 
BLT 
LDA 
STA 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
STA 



KILLNUM 

SCORE A 

SCOREA 

#$0A 

SCRSET 

#$00 

SCOREA 

SCOREB 

SCOREB 

#$0A 

SCRSET 

#$00 

SCOREB 

SCORC 

SCOREC 

#$0A 

SCRSET 

#$00 

SCOREA 

SCOREB 



; LOCATION IN PARTICLE POSITION 

;T0 START DRAWING 

;EACH BLOCK 3 LINES DEEP 



;TOP OF SHIP 

;NOW CENTER OF SHIP 

;ADD RELATIVE Y POS OF PARTICLE. 

;TEST NOT OFF TOP SCREEN 

;IF OFF, DON'T LOT 

;TEST NOT OFF BOTTOM SCREEN 

;IF OFF, DON'T PLOT 

; STORE VALUE IN TEMPI 
; LOCATE X POSITION 

;FIND LINE ADRESS TO PLOT ON SCREEN 

; VALUE OF ALL SHAPE BYTES 
;XOR WITH SCREEN 
;PLOT ON SCREEN 

;NEXT LINE, IN THIS CASE DRAWING — 

;FROM BOTTOM TO TOP 

;DONE? 

;D0 NEXT PARTICLE 

;D0NE WITH ALL PARTICLES IN GROUP? 
; NO, CONTINUE 

; DELAY 



; ANOTHER ALIEN KILLED 
; INCREMENT COUNTER 



;IF <10 DON'T CARRY TENS DIGIT 
;ZERO OUT l'S DIGIT 

;ADD CARRY IN TENS 



;IF <10 DON'T CARRY TO 100'S DIGIT 
;ZERO OUT 10 'S DIGIT & l'S DIGIT 

; ADD CARRY IN 100 'S 



;SKIP IF LESS 999 
; RESET TO IF 1000 
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*SCORE 


DRAWING ROUTINE 
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SCOREDR 


LDX 


#$00 
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AO 
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LDY 


#$00 


66EC: 


Al 
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887 


SC0RED2 


LDA 


(SHPL.X) 


66EE: 
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26 




888 




STA 


( HIRESL ),Y 


66 F0: 


A5 


27 




889 
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HIRESH 


66F2: 
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890 




CLC 




66F3: 


69 


04 




891 




ADC 


#$04 


66F5: 


85 


27 




892 




STA 


HIRESH 


66F7: 


E6 


50 




893 




INC 


SHPL 


66F9: 


C9 


40 




894 




CMP 


#$40 


66FB: 


90 


EF 




895 




BCC 


SC0RED2 


66FD: 


E9 


20 




896 




SBC 


#$20 


66FF: 


85 


27 




897 




STA 


HIRESH 


6701: 


CE 


10 


60 


898 




DEC 


LNGH 


6704: 


FO 


03 




899 




BEQ 


SC0RED3 


6706: 


C8 






900 




INY 





SETUP SCREEN LOCATION TO PLOT 
SCOREC ,100'S DIGIT 
DIGIT 1 BYTE WIDE 



; INDEX TO CORRECT SHAPE FOR DIGIT- 
; DRAWN 

;DRAW 100' S DIGIT 

; SETUP SCREEN LOCATION TO 

;PLOT SCOREB ,10'S DIGIT 



;DRAW 10 'S DIGIT 



; SETUP SCREEN LOCATION TO 
;PLOT SCOREA, 1'S DIGIT 



;DRAW l'S DIGIT 



; OFFSET INTO LINE ALREADY SET 
;IN SCRSET 



6707: DO E3 901 
6709: 60 902 
903 
904 
905 
906 

670A: 00 00 00 
670D: 00 00 00 
6710: 00 00 907 
6712: 80 80 80 
6715: 80 80 80 
6718: 80 80 908 
671A: 00 00 00 
671D: 00 00 00 
6720: 00 00 909 
6722: 80 80 80 
6725: 80 80 80 
6728: 80 80 910 
672A: 00 00 00 
672D: 00 00 00 
6730: 00 00 911 
6732: 80 80 80 
6735: 80 80 80 
6738: 80 80 912 
673A: 00 00 00 
673D: 00 00 00 
6740: 00 00 913 
6742: 80 80 80 
6745: 80 80 80 
6748: 80 80 914 
674A: 28 28 28 
674D: 28 28 28 
6750: 28 28 915 
6752: A8 A8 A8 
6755: A8 A8 A8 
6758: A8 A8 916 
675A: 28 28 28 
675D: 28 28 28 
6760: 28 28 917 
6762: A8 A8 A8 
6765: A8 A8 A8 
6768: A8 A8 918 
676A: 28 28 28 
676D: 28 28 28 
6770: 28 28 919 
6772: A8 A8 A8 
6775: A8 A8 A8 
6778: A8 A8 920 
677A: 28 28 28 
677D: 28 28 28 
6780: 28 28 921 
6782: A8 A8 A8 
6785: A8 A8 A8 
6788: A8 A8 922 
678A: 50 50 50 
678D: 50 50 50 
6790: 50 50 923 
6792: DO DO DO 
6795: DO DO DO 
6798: DO DO 924 



BNE SC0RED2 
SC0RED3 RTS 

*T A B L E S ************ 
* VERTICAL TABLES 

YVERTL HEX 0000000000000000 

HEX 8080808080808080 

HEX 0000000000000000 

HEX 8080808080808080 

HEX 0000000000000000 

HEX 8080808080808080 

HEX 0000000000000000 

HEX 8080808080808080 

HEX 2828282828282828 

HEX A8A8A8A8A8A8A8A8 

HEX 2828282828282828 

HEX A8A8A8A8A8A8A8A8 

HEX 2828282828282828 

HEX A8A8A8A8A8A8A8A8 

HEX 2828282828282828 

HEX A8A8A8A8A8A8A8A8 

HEX 5050505050505050 

HEX DODODODODODODODO 



679A: 50 50 50 

679D: 50 50 50 

67 AO: 50 50 925 

67A2: DO DO DO 

67A5: DO DO DO 

67 A8: DO DO 926 

67 AA: 50 50 50 

67AD: 50 50 50 

67B0: 50 50 927 

67B2: DO DO DO 

67B5: DO DO DO 

67B8: DO DO 928 

67BA: 50 50 50 

67BD: 50 50 50 

67C0: 50 50 929 

67C2: DO DO DO 

67C5: DO DO DO 

67C8: DO DO 930 
931 

67CA: 20 24 28 

67CD: 2C 30 34 

67D0: 38 3C 932 

67D2: 20 24 28 

67D5: 2C 30 34 

67D8: 38 3C 933 

67DA: 21 25 29 

67DD: 2D 31 35 

67E0: 39 3D 934 

67E2: 21 25 29 

67E5: 2D 31 35 

67E8: 39 3D 935 

67EA: 22 26 2A 

67ED: 2E 32 36 

67FO: 3A 3E 936 

67F2: 22 26 2A 

67F5: 2E 32 36 

67F8: 3A 3E 937 

67FA: 23 27 2B 

67FD: 2F 33 37 

6800: 3B 3F 938 

6802: 23 27 2B 

6805: 2F 33 37 

6808: 3B 3F 939 

680A: 20 24 28 

680D: 2C 30 34 

6810: 38 3C 940 

6812: 20 24 28 

6815: 2C 30 34 

6818: 38 3C 941 

681A: 21 25 29 

681D: 2D 31 35 

6820: 39 3D 942 

6822: 21 25 29 

6825: 2D 31 35 

6828: 39 3D 943 

682A: 22 26 2A 

682D: 2E 32 36 

6830: 3A 3E 944 

6832: 22 26 2A 

6835: 2E 32 36 



HEX 5050505050505050 

HEX DODODODODODODODO 

HEX 5050505050505050 

HEX DODODODODODODODO 

HEX 5050505050505050 

HEX DODODODODODODODO 

YVERTH HEX 2024282C3034383C 

HEX 2024282C3034383C 

HEX 2125292D3135393D 

HEX 2125292D3135393D 

HEX 22262A2E32363A3E 

HEX 22262A2E32363A3E 

HEX 23272B2F33373B3F 

HEX 23272B2F33373B3F 

HEX 2024282C3034383C 

HEX 2024282C3034383C 

HEX 2125292D3135393D 

HEX 2125292D3135393D 

HEX 22262A2E32363A3E 



6838: 
68 3A: 
683D: 
6840: 
6842: 
6845: 
6848: 
684A: 
684D: 
6850: 
6852: 
6855: 
6858: 
68 5A: 
685D: 
6860: 
6862: 
6865: 
6868: 
686A: 
686D: 
6870: 
6872: 
6875: 
6878: 
687A: 
687D: 
6880: 
6882: 
6885: 
6888: 



688A: 
688D: 
6890: 
6891: 
6894: 
6897: 
6898: 
689B: 
689E: 
689F: 
68A2: 
68A5: 
68 A6: 
68A9: 
68AC: 
68AD: 
68B0: 
68B3: 
68B4: 
68B7: 
68BA: 

68BB: 
68BC: 
68BD: 
68BE: 



jA 3E 
23 27 
2F 33 
3B 3F 
23 27 
2F 33 
3B 3F 
20 24 
2C 30 
38 3C 

20 24 
2C 30 

38 3C 

21 25 
2D 31 

39 3D 

21 25 
2D 31 
39 3D 

22 26 
2E 32 
3A 3E 

22 26 
2E 32 
3A 3E 

23 27 
2F 33 
3B 3F 
23 27 
2F 33 
3B 3F 



945 



2B 
37 

2B 
37 

28 
34 

28 
34 

29 
35 

29 
35 

2A 
36 

2A 
36 

2B 
37 

2B 
37 



946 



947 



948 



949 



950 



951 



952 



953 



954 



955 
956 
957 
958 



HEX 22262A2E32363A3E 

HEX 23272B2F33373B3F 

HEX 23272B2F33373B3F 

HEX 2024282C3034383C 

HEX 2024282C3034383C 

HEX 2125292D3135393D 

HEX 2125292D3135393D 

HEX 22262A2E32363A3E 

HEX 22262A2E32363A3E 

HEX 23272B2F33373B3F 

HEX 23272B2F33373B3F 
-TABLES TO KEEP TRACK OF OBJECTS 



00 00 

00 00 
00 

28 38 
58 68 
38 

01 01 
01 01 
01 

00 00 
00 00 
00 

00 00 
00 00 
00 

2D 40 
90 CO 
FO 

00 00 
00 00 
01 

04 
14 
24 
34 



00 
00 

48 
28 

01 
01 

00 
00 

00 
00 

70 
DO 

01 
00 



959 TABLEX HEX 00000000000000 



960 TABLEY HEX 28384858682838 



961 ALIVE HEX 01010101010101 



962 USFLAG HEX 00000000000000 



963 ONFLAG HEX 00000000000000 



964 ONPOS HEX 2D407090C0D0F0 



965 SHPADR HEX 00000100000001 

966 * 

967 SHPLO DFB SHAPES 

968 DFB SHAPES+$10 

969 DFB SHAPES+$20 

970 DFB SHAPES+$30 
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68BF: 
68C2: 
68C5: 
68C7: 
68CA: 
68CD: 
68CF: 
68D2: 
68D5: 

68D7: 
68DA: 
68DD: 
68DF: 
68E2: 
68E5: 
68E7: 
68EA: 
68ED: 



01 00 
03 00 
07 00 
00 OF 
00 7F 
00 7F 
IF 07 
7F IF 
7F 7F 

80 00 
82 00 
82 00 
00 8A 
00 AA 
80 AA 
95 82 
D5 8A 
D5 AA 



68EF: 07 7E 



6904: 
6907: 
690A: 
690C: 
690F: 
6912: 

6914: 
6917: 
691A: 
691C: 
691F: 
6922: 

6924: 
6927: 
692A: 
69 2C: 
692F: 
6932: 

6934: 
6937: 
693A: 
69 3C: 
693F: 
6942: 



6944: 
6947: 
694A: 
694C: 



28 28 
2A 2A 
22 22 

00 01 

01 05 
04 04 

40 70 
AA AA 

00 00 

01 07 
D5 D5 
00 00 

50 54 
54 55 
11 11 
00 00 

02 02 
02 02 

40 70 
D5 D5 

00 00 

01 07 
AA AA 
00 00 



08 09 
OB OB 

09 08 
07 08 



971 
972 

00 
00 

973 

00 
7F 

974 

7F 
78 

975 
976 

00 
00 

977 

00 
D5 

978 

AA 
A8 

979 
980 
981 
07 982 
983 
984 
985 

OA 
22 

986 

01 
04 

987 
988 

30 
70 

989 

06 
07 

990 
991 

04 
11 

992 

02 
02 

993 
994 

30 
70 

995 

06 
07 

996 
997 
998 

OA 
OA 

999 

09 



*MASK SHIP TABLE 



MSHIP HEX 0100000300000700 



HEX 0OOF00007F7F0O7F 



HEX 1F077F7F1F787F7F 
*SHAPE TABLE SHIP 



SHIP HEX 8000008200008200 



HEX 008A0000AAD580AA 



HEX 9582AAD58AA8D5AA 

* 

*SHAPE BOMB 
SHBOMB HEX 077E07 
DS 18 

*SHAPE ALIEN EVEN 



SHAPES HEX 28280A2A2A222222 



HEX 0001010105040404 
*SHAPE SAUCER EVEN 



HEX 407030AAAA700000 



HEX 010706D5D5070000 
»ODD ALIEN SHAPE 



HEX 5054045455111111 



HEX 0000020202020202 
*0DD SAUCER SHAPE 



HEX 407O3OD5D570OOOO 

HEX 010706AAAA070000 
^EXPLOSION TABLES 

EOFFX HEX 08090A0B0B0A0908 



694F: OA OB OC 

6952: OC OB 1000 HEX 0708090A0B0C0C0B 

6954: OA 08 07 
6957: 05 06 08 

695A: 09 OA 1001 HEX 0A0807050608090A 

69 5C: OC OD OE 
695F: OE OD OC 

6962: OB 09 1002 HEX OC0DOE0EODOC0BO9 

6964: 07 06 04 
6967: 05 06 08 

696A: OA OC 1003 HEX 0706040506080A0C 

696C: OE OF OF 
696F: OE OD OB 

6972: 09 07 1004 HEX OEOFOFOEODOB0907 

6974: 05 04 02 
6977: 03 05 08 

697A: OB OD 1005 HEX 0504020305080B0D 

697C: OF 10 11 
697F: 10 OF OD 

6982: OB 08 1006 HEX 0F1011100F0D0B08 

6984: 06 04 03 
6987: 02 00 01 

698A: 04 07 1007 HEX 0604030200010407 

698C: OA OE 11 
698F: 12 13 12 

6992: 11 OF 1008 HEX 0A0E11121312110F 

6994: OB 07 04 

6997: 02 01 00 1009 HEX OB0704020100 

699A: FC F8 F8 
699D: FC 04 08 

69A0: 08 04 1010 EOFFY HEX FCF8F8FC04080804 
69A2: F8 FO EC 
69A5: EC FO F8 

69 A8: 04 OC 1011 HEX F8F0ECECF0F8040C 

69AA: 10 OC 04 
69AD: F8 EC E4 

69B2- E4 EC F4 1012 100C 04F8ECE4E0E4 
69B5: 00 OC 14 

69B8: 18 1C 1013 HEX E4ECF4000C14181C 

69BA: 14 08 FO 
69BD: E4 DC D4 

69C2- E4 FO 00 1408F0EADCD4DADC 
69C5: 14 20 24 

69C8: 28 20 1015 HEX E4F0001 420242820 

69CA: 14 00 EC 
69CD: EO D4 CC 

69D0: C8 DO 1016 HEX 1400ECE0D4CCC8D0 

69D2: D8 E8 FC 
69D5: 14 24 2C 

69D8: 34 34 1017 HEX D8E8FC14242C3434 

69DA: 2C 20 10 
69DD: 00 E4 DO 

69E0: C8 CO 1018 HEX 2C201000E4D0C8C0 

69E2: B8 C4 D4 
69E5: E4 FC 18 

69E8: 2C 38 1019 HEX B8C4D4E4FC182C38 

69EA: 48 40 38 

69ED: 28 10 00 1020 HEX 484038281000 
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1021 DS 24 

1022 * 

1023 ^SHAPES FOR SCOREKEEPING 



6A08: 


3F 


01 


01 








6A0B: 


3F 


20 


20 








6A0E: 


3F 


00 




1024 SCOREWD 


HEX 


3F01013F20203F00 


6A10: 


3C 


02 


01 








6A13: 


01 


01 


02 








6A16: 


3C 


00 




1025 


HEX 


3C02010101023C00 


6A18: 


IE 


21 


21 








6A1B: 


21 


21 


21 








6A1E: 


IE 


00 




1026 


HEX 


1E21212121211E00 


6A20: 


3F 


21 


21 








6A23: 


3F 


09 


11 








6A26: 


21 


00 




1027 


HEX 


3F21213F09112100 


6A28: 


3F 


01 


01 








6A2B: 


IF 


01 


01 








6A2E: 


3F 


00 




1028 


HEX 


3F01011F01013F00 










1029 *INDEX TO LO 


BYTE SCORE NUMBER 


6A30: 


3A 






1030 SCOREP 


DFB 


SCORESH 


6A31: 


42 






1031 


DFB 


SC0RESH+$08 


6A32: 


4A 






1032 


DFB 


SC0RESH+$10 


6A33: 


52 






1033 


DFB 


SC0RESH+$18 


6A34: 


5A 






1034 


DFB 


SC0RESH+$20 


6A35: 


62 






1035 


DFB 


SC0RESH+$28 


6A36: 


6A 






1036 


DFB 


SC0RESH+$30 


6A37: 


72 






1037 


DFB 


SC0RESH+$38 


6A38: 


7A 






1038 


DFB 


SC0RESH+$40 


6A39: 


82 






1039 
1040 * 


DFB 


SC0RESH+$48 










1041 * NUMBER 


SHAPES 


6A3A: 


1C 


22 


22 








6A3D: 


22 


22 


22 








6A40: 


1C 


00 




1042 SCORESH 


HEX 


1C22222222221COO 


6A42: 


08 


OC 


08 








6A45: 


08 


08 


08 








6A48: 


1C 


00 




1043 


HEX 


080C080808081C00 


6A4A: 


1C 


22 


20 








6A4D: 


18 


04 


02 








6A50: 


3E 


00 




1044 


HEX 


1C22201804023E00 


6A52: 


3E 


20 


10 








6A55: 


08 


10 


22 








6A58: 


1C 


00 




1045 


HEX 


3E20100810221C00 


6A5A: 


18 


14 


12 








6A5D: 


11 


3F 


10 








6A60: 


10 


00 




1046 


HEX 


181412113F101000 


6A62: 


3E 


02 


02 








6A65: 


3E 


20 


22 








6A68: 


1C 


00 




1047 


HEX 


3E02023E20221C00 


6A6A: 


38 


04 


02 








6A6D: 


IE 


22 


22 








6A70: 


1C 


00 




1048 


HEX 


3804021E22221C00 


6A72: 


3E 


20 


10 








6A75: 


08 


04 


04 








6A78: 


04 


00 




1049 


HEX 


3E20100804040400 


6A7A: 


1C 


22 


22 








6A7D: 


1C 


22 


22 








6A80: 


1C 


00 




1050 


HEX 


1C22221C22221C00 


6A82: 


1C 


22 


22 








6A85: 


IE 


20 


10 









6A88: OE 00 1051 HEX 1C22221E2010OEO0 

6A8A: 1C 22 22 

6A8D: 22 22 22 

6A90: 1C 00 1052 HEX 1C22222222221C00 



—END ASSEMBLY — 2706 BYTES 















"If 

ii 


f * 


























h 

t 














































; — 










: 








f — 




hi 












■ 






-~ 


ill 


*\ 




WW 

MM 




















■HS 


«*» 

MHM 



































































T TT T T 1 n n 

WHITE 






RED 






WHITE 






EVEN 


ODD 


40 01 


40 


01 


70 07 


70 


07 


30 06 


30 


06 


AA D5 


D5 


AA 


AA D5 


D5 


AA 


70 07 


70 


07 


00 00 


00 


00 


00 00 


00 


00 



BRBRBRBRBRBRBR 
EVEN OFFSET SHAPE 

HI-RES SCREEN SCROLLING 

There are an increasing number of games that require fast scrolling. Racing 
car games, where the screen (or at least sections of the screen scroll) rapidly 
vertically, are good examples. It is certainly much easier to scroll the screen in 
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that direction, because only two adjacent lines are involved, and the screen 
addresses for those two lines are easily referenced from lookup tables. 

The algorithm for scrolling down the screen involves taking the bytes from 
one line and storing them in the line directly below. This is done across a row 
for each column. The most important thing is that you start from the bottom of 
the screen or you will overwrite lines. Also, the bottom line must be transferred 
to the top of the screen if a wrap-a-round effect is desired. A cute trick which 
minimizes the code considerably is to extend the YVERT table one extra byte. 
That byte is the address of the Oth line. Therefore, line #191 can be moved to 
line #192, which is actually line #0. 

Moving an entire screen upwards a single line by this method is not that fast, 
but usually, as in racing games, only narrow background strips need to be 
scrolled. This produces more reasonable scrolling rates. Other techniques 
involve using a background that occupies every other screen line, then scrolling 
it two lines at a time. The Phantom's Five game appears to use this method. 
Another approach is to utilize straight in-line code, where scrolling for all the 
lines is done a column at a time. Bytes are moved upwards with the following 
code 



STA $2C00,Y 
LDA $2400,Y 
STA $2800, Y 
LDA $2000,Y 
STA $2400 ,Y 



where Y is looped from $0 to $27 across the screen. This code is at least three 
times faster than the first method. 

Scrolling the screen upwards is quite similar to scrolling the screen 
downwards. It requires moving the screen memory from the lower line to the 
upper line, across all 40 columns. The bytes in the Oth line must be moved to 
the 191st line if a wrap-a-round effect is desired. This requires extra code, since 
we can't do any fancy tricks as we did before. 

The two scrolling routines, one up and one down, have been put together in 
the following program . The scrolling windows have been set so that part of the 
screen scrolls up and part of the screen scrolls down, while the remainder 
remains stationary. The variables that control the windows are LEFT and 
RIGHT for scrolling down, and LEFTU and RIGHTU for scrolling up. 
These values can be modified in lines 16, 18, 20 and 22. 

The flow charts and code are presented below: 



LDA 
STA 



$3CD0,Y 
$3FD0,Y 



LDA 



$2800,Y 
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Y register = $BF 












FIND LINE ADDRESS TOP LINE #191 










Y register = 
line = Y register 












FIND LINE ADDRESS BOTTOM LINE #0 



.NOTE: MOVE LINE #0 
TO BOTTOM LINE #191 



START AT TOP 
Y register = 



FIND LINE ADDRESS TOP LINE 



INCREMENT Y register 



FIND LINE ADDRESS BOTTOM LINE 



LINE = Y register 



Y register = LEFTU 



-»} LOAD BYTE FROM BOTTOM LINE, Yth POSITION 



STORE BYTE TOP LINE, Yth POSITION 



INY FOR NEXT BYTE 



no_ 



DONE WITH LINE? 



no 



yes 



AT BOTTOM YET? LINE @ $BF? 



yes 



DONE! | 



X register 


= Oth ROW 






FIND POINTERS TO ROW 
HIRESL, HIRESH 



Y reg. = 1 (column of 1st byte to access) 



drawl 



LNGH = #$28 



draw2 



LOAD BYTE TO MOVE LEFT 
LDA (HIRESL), Y 



DECREMENT HIRESL POINTER 



STORE BYTE ONE COLUMN LEFT 
STA (HIRESL), Y 



INC Y register 
RESTORE POINTER TO PREVIOUS VALUE 



NEXT ROW 



DONE 8 ROWS? 



yes 



BACK UP 8 ROWS 



LNGH - LNGH - 1 



INCREMENT) _no 
Y reg. 
TO NEXT 
COLUMN 



DONE WITH ALL COLUMNS OF 8 ROWS? 



yes 



NEXT ROW OF 8 LINE BLOCKS 



BOTTOM SCREEN? 
yes 



DONE! 
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1 

2 

6000: 4C 08 60 3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 



AD 50 CO 
AD 52 CO 
AD 57 CO 
A9 06 



A9 OA 
8D 04 60 
A9 20 



A9 25 



6008: 
600B: 
600E: 
6011: 
6013: 
6016: 
6018: 
601B: 
601D: 
6020: 
6022: 
6025: 
6028: 
602B: 



602E: AO CO 



6030: 
6033: 
6035: 
6038: 
603A: 
603B: 
603E: 
6040: 
6043: 
6045: 
6048: 
604B: 
604D: 
604F: 
6050: 
6053: 



8D 03 60 17 



18 
19 
20 



8D 06 60 21 



22 



8D 07 60 23 
20 2E 60 24 
20 5D 60 25 
4C 25 60 26 
27 
28 
29 

B9 AA 60 30 
85 08 31 
B9 6B 61 32 



85 09 
88 



33 
34 

B9 AA 60 35 



85 06 
B9 6B 61 
85 07 



36 
37 
38 



8C 05 60 39 
AC 03 60 40 



Bl 06 
91 08 
C8 



41 
42 
43 



CC 04 60 44 



DO F6 



45 



6055: AC 05 60 46 



6058: 
605A: 
605C: 



CO 00 
DO D4 
60 



605D: 
605F : 
6062: 
6064: 
6067: 
6069: 
606B: 
606E: 



47 
48 
49 
50 
51 
52 
53 

B9 AA 60 54 



AO BF 



85 06 
B9 6B 61 
85 07 
AO 00 



55 
56 
57 
58 



8C 05 60 59 
B9 AA 60 60 



LEFT 
RIGHT 
LINE 
LEFTU 
RIGHTU 
TOPL 
TOPH 
BOTTOML 
BOTTOMH 
PROG 



*SCROLL UP & 
ORG 
JMP 
DS 
PS 
DS 
DS 
DS 
EQU 
EQU 
EQU 
EQU 
LDA 
LDA 
LDA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
JMP 
DOWN 
LDY 



CONT 



*SCROLL 
SCROLL 
# 

START 



DOWN SUBROUTINE 
$6000 
PROG 
1 
1 

1 

1 
1 

$6 

T0PL+$1 
$8 

B0TT0ML+$1 
$C050 
$C052 
$C057 
#$06 
LEFT 
#$0A 
RIGHT 
#$20 
LEFTU 
#$25 
RIGHTU 
SCROLL 
SCROLLU 
CONT 
SUBROUTINE 
#$C0 



;LEFT WINDOW SCROLL DOWN 
; RIGHT WINDOW SCROLL DOWN 
;LEFT WINDOW SCROLL UP 
; RIGHT WINDOW SCROLL UP 



YVERTL, Y 
BOTTOML 
YVERTH , Y 
BOTTOMH 

YVERTL, Y 
TOPL 
YVERTH , Y 
TOPH 
LINE 
LEFT 
(TOPL).Y 



; START WITH BOTTOM LINE 
;AND WORK TO TOP 
.FIND SCREEN ADDRESS — 
;0F BOTTOM LINE 



; DECREMENT LINE NUMBER 
;FIND SCREEN ADDRESS TOP 



LDA 
STA 
LDA 
STA 
DEY 
LDA 
STA 
LDA 
STA 
STY 
LDY 

LOOP LDA 
STA 
INY 
CPY 
BNE 
LDY 
CPY 
BNE 
RTS 

♦SCROLL UP SUBROUTINE 
*FIRST TAKE TOP LINE AND PUT ON BOTTOM 
*IN THIS SPECIAL CASE THINK OF IT AS LINE 



LINE 



;TEMP STORE Y REGISTER 
; START SHIFTING LINE 
;LOAD BYTE ON SCREEN 

ON LINE BELOW 



(BOTTOML), Y; STORE BYTE 
;NEXT BYTE 
;DONE WITH LINE? 
;NO,DO NEXT BYTE ON LINE 
; RESET Y REGISTER WITH LINE 
; AT TOP YET? 



RIGHT 
LOO 
LINE 
#$00 
START 



SCROLLU 



LDY 


#$BF 


LDA 


YVERTL , Y 


STA 


TOPL 


LDA 


YVERTH, Y 


STA 


TOPH 


LDY 


#$00 


STY 


LINE 


LDA 


YVERTL ,Y 



,-LINE #191 
;FIND SCREEN 
;0F TOP LINE 



#0 BELOW LINE #191 
ADDRESS — 



;FIND SCREEN ADDRESS — 
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6071 : 


85 


08 




Ol 




QTA 


ROTTOMT 


•DF ROTTOM I TNF 


6073: 


B9 


6B 


ol 


OZ 




T T\h 
L1JA 


YVFPTH Y 
I VEiKln , I 




dO/d: 


85 


09 




to 
Dj 




QTA 


ROTTOMH 
du 1 1 \ji in 




ou/o: 


AC 95 


Afi 
OU 


A/i 




JMP 


L00P2-3 


;G0T0 INSTRUCTION BEFORE L00P2 


6U7B: 


AO 


00 




O J 




T TW 
L4UI 


moo 

IT fW 


•START AT TOP 


oU7U: 


B9 


AA 


ATI 
OU 


AA 
OO 


QTAPTTT 


T HA 


YVFRTT Y 

I V Eifx 1 Li t I 


•FIND SCREEN ADDRESS — 


ouou: 


85 


UO 




A7 
O f 






TnPT 


•OF TOP I TNF 


ouo/ : 


B9 


6B 


A1 
Ol 


AA 
DO 




LDA 


YVFRTH Y 

1 V US\ -111) 1 




ouod: 


85 


07 




AQ 

oy 




STA 


T0PH 




ouo/: 


C8 






/ U 




TNY 
±ii 1 




•NFXT ROW 


oUoo: 


B9 


AA 


An 
OU 


-71 

/ 1 




T T1A 


YVFRTT Y 

I V Ej1\1 Li , I 


•FTND QPRFFN ADDRFSS 


608B: 


85 


08 




/ L 




QTA 
01 A 


ROTTOMT 


•OF ROTTOM T TNF 


608D: 


B9 


6B 


ol 


7Q 

10 




T HA 


YVERTH , Y 




6090: 


85 


09 




7/. 




QTA 


B0TT0MH 




6092: 


8C 


05 


oU 


75 




CTV 

oil 


LINE 


;TEMP STORE Y REGISTER 


6095: 


AC 


06 


60 


76 




LUX 


LEFTU 


; START SHIFTING LINE 


6098: 


Bl 


08 




77 


LOOP 2 


t ha 
LDA 


(B0TT0ML) ,Y;L0AD BYTE ON SCREEN 


609A: 


91 


06 




78 




bl A 


(T0PL),Y 


; STORE BYTE ON LINE ABOVE 


609C: 


C8 






/V 




IN I 




;NEXT BYTE 


609D: 


CC 


07 


OU 


on 
oU 






RIGHTU 


;D0NE WITH LINE? 


DUAL): 


DO 


F6 




Q 1 

ol 




RF 


L00P2 


;N0,D0 NEXT BYTE ON LINE 


60A2: 


AC 


05 


60 


o2 




t nv 


LINE 


; RESET Y REG. WITH LINE 


ouad: 


CO 


BF 








L>r 1 


#$BF 


; AT BOTTOM YET? 


oua/ : 


DO 


D4 








RNF 


STARTU 




60A9: 


60 






85 




RTS 






60AA: 


00 


00 00 












60AD: 


00 


00 


00 












60B0: 


00 


00 




86 


YVERTL 


HEX 


0000000000000000 



60B2: 80 80 80 
60B5: 80 80 80 
60B8: 80 80 87 
60BA: 00 00 00 
60BD: 00 00 00 
60C0: 00 00 88 
60C2 : 80 80 80 
6X5 : 80 80 80 
6X8: 80 80 89 
6XA: X X 00 
6XD: X X 00 
60D0: XX 90 
60D2: X 80 80 
60D5: 80 80 80 
60D8: 80 80 91 
60DA: X 00 X 
60DD: XXX 
60E0: XX 92 
60E2: X 80 80 
60E5: 80 80 80 
60E8: 80 X 93 
60EA: 28 28 28 
60ED: 28 28 28 
60F0: 28 28 94 
60F2: A8 A8 A8 
60F5: A8 A8 A8 
60F8: A8 A8 95 
60FA: 28 28 28 
60FD: 28 28 28 
61X: 28 28 96 
6102: A8 A8 A8 
6105: A8 A8 A8 



HEX 8080808080808080 

HEX 0XXX0X000X0 

HEX 8X0808080808080 

HEX 0X00XXX00X0 

HEX 8080808080808080 

HEX 0X0X0000000X0 

HEX 8080808080808080 

HEX 2828282828282828 

HEX A8A8A8A8A8A8A8A8 

HEX 2828282828282828 



HEX A8A8A8A8A8A8A8A8 
HEX 2828282828282828 
HEX A8A8A8A8A8A8A8A8 



HEX A8A8A8A8A8A8A8A8 



6108: A8 A8 97 

610A: 28 28 28 

610D: 28 28 28 

6110: 28 28 98 

6112: A8 A8 A8 

6115: A8 A8 A8 

6118: A8 A8 99 

61 1A: 28 28 28 

611D: 28 28 28 

»! ?! .o 100 HEX 2828282828282828 

6122: A8 A8 A8 

6125: A8 A8 A8 

6128: A8 A8 101 

61 2A: 50 50 50 

612D: 50 50 50 

6 6 1 1 32°; DO DO DO ™ ^ 5050505 °50505050 

6135: DO DO DO 

^IV 2! 22 c~ 103 HEX DODODODODODODODO 

ol 3A: 50 50 50 

613D: 50 50 50 

SSI DO DO DO 5050505 °50505050 

6145: DO DO DO 

6148: DO DO 105 HEX DODODODODODODODO 

61 4A: 50 50 50 

614D: 50 50 50 

nn ™ ™ 106 HEX 5050505050505050 

0152: DO DO DO 

6155: DO DO DO 

6158: DO DO 107 HEX DODODODODODODODO 

61 5A: 50 50 50 

615D: 50 50 50 

6160: 50 50 108 HEX 5050505050505050 

6162: DO DO DO 

6165: DO DO DO 

6168: DO DO 00 109 HEX DODODODODODODODOOO 

110 * 

616B: 20 24 28 

616E: 2C 30 34 

till 1 ™ 30 111 YVERTH HEX 2024282C3034383C 

0173: 20 24 28 

6176: 2C 30 34 

VilV - 30 112 HEX 2024282C3034383C 

617B: 21 25 29 

617E: 2D 31 35 

I 9 3D 113 HEX 2125292D3135393D 

6183: 21 25 29 

6186: 2D 31 35 

l\f'- 3D 114 HEX 2125292D3135393D 

Dials: 12. lb 2k 
618E: 2E 32 36 

6193; 22 26 2A ^ ^ 22 262A2E32363A3E 

6196: 2E 32 36 

619b! 23 27 2B ^ 22262 A2E32363A3E 
619E: 2F 33 37 

61A3! 23 27 2B U? " EX 23272B2 F33373B3F 



61A6: 


2F 


33 


37 




61A9: 


3B 


3F 




118 


61AB: 


20 


24 


28 




61AE: 


2C 


30 


34 




61B1: 


38 


3C 




1 1 Q 

117 


61B3: 


20 


24 


28 




61B6: 


2C 


30 


34 




61B9: 


38 


3C 




120 


61BB: 


21 


25 


29 




61BE: 


2D 


31 


35 




61C1: 


39 


3D 




121 


61C3: 


21 


25 


29 




61C6: 


2D 


31 


35 




61C9: 


39 


3D 




122 


61CB: 


22 


26 


2A 




6 ICE: 


2E 


19 


16 

JO 




61D1 : 


3A 


3E 




1 91 


61D3: 


22 


26 


2A 




61D6: 


2E 


32 


JU 




61D9: 


3A 


3E 




124 


61DB: 


23 


27 


2B 




61DE: 


2F 


33 


37 




61E1: 


3B 


3F 




125 


61E3: 


23 


27 


2B 




61E6: 


2F 


33 


37 




61E9: 


3B 


3F 




126 


61EB: 


20 


24 


28 




61EE: 


2C 


30 


34 




61F1 : 


38 


3C 




127 


61F3: 


20 


24 


28 




61F6: 


2C 




1A 
jh 






1ft 

JO 


IT 






61FB: 


21 


25 


9Q 




61FE: 


2D 


-JX 


IS 
JJ 




6201 : 


39 


3D 




1 9Q 


6203: 


21 


25 


29 




6206: 


2D 


31 


35 




6209: 


1Q 






\ in 


620B: 


22 


26 


2A 




620E: 


2E 


32 


36 




6211: 


3A 


3E 




131 


6213: 


22 


26 


2A 




6216: 


2E 


32 


36 




6219: 


3A 


3E 




132 


621B: 


23 


27 


2B 




621E: 


2F 


33 


37 




6221: 


3B 


3F 




133 


6223: 


23 


27 


2B 




6226: 


2F 


33 


37 




6229: 


3B 


3F 


20 


134 



—END ASSEMBLY- 
ERRORS: 
556 BYTES 



HEX 23272B2F33373B3F 

HEX 2024282C3034383C 

HEX 2024282C3034383C 

HEX 2125292D3135393D 

HEX 2125292D3135393D 

HEX 22262A2E32363A3E 

HEX 22262A2E32363A3E 

HEX 23272B2F33373B3F 

HEX 23272B2F33373B3F 

HEX 2024282C3034383C 

HEX 2024282C3034383C 

HEX 2125292D3135393D 

HEX 2125292D3135393D 

HEX 22262A2E32363A3E 

HEX 22262A2E32363A3E 

HEX 23272B2F33373B3F 

HEX 23272B2F33373B3F20 



Scrolling the screen left or right in the horizontal direction is slightly more 
difficult. The normal scrolling direction for games is left, because objects in 
most games travel from left to right, and the background terrain scrolls left 
1 his method moves each byte in one of the 8 line subgroups leftwards, a byte at 
a time. Byte-shifting starts at the 1st column, moving that byte to the Oth 
column, then drops down to the next row, moves a byte again, until all eight 
rows have been moved. Then the routine increments the column number and 
repeats the operation until all 40 columns of eight rows have been moved It 
does this for all 24 subgroups. 

Normally, during scrolling, a new column of data is plotted at the 39th 
column. Wrap-a-round is tricky, because when a byte is moved off the screen's 
left side it will reappear on a line % higher on the screen. If you would like to 
see this strange scrolling effect, change the value in line #25 to #$28. 

Both the code and flow chart are shown below. 



6000: 4C 05 60 



6005: 


AD 


50 


CO 


9 


6008: 


AD 


52 


CO 


10 


600B: 


AD 


57 


CO 


11 


600E: 


A2 


00 




12 


6010: 


BD 


4A 


60 


13 


6013: 


85 


FC 




14 


6015: 


BD 


62 


60 


15 


6018: 


85 


FB 




16 


601A: 


AO 


01 




17 


601C: 


20 


27 


60 


18 


601F: 


E8 






19 


6020: 


E0 


18 




20 


6022: 


90 


EC 




21 


6024: 


4C 


0E 


60 


22 










23 










24 


6027: 


A9 


27 




25 


6029: 


8D 


04 


60 


26 


602C: 


Bl 


FB 




27 


602E: 


88 






28 


602F: 


91 


FB 




29 


6031: 


C8 






30 


6032: 


A5 


FC 




31 


6034: 


18 






32 


6035: 


69 


04 




33 


6037: 


85 


FC 




34 


6039: 


C9 


40 




35 


603B: 


90 


EF 




36 


603D: 


E9 


20 




37 


603F: 


85 


FC 




38 


6041: 


CE 


04 


60 


39 



*SCR0LL LEFT 


SUBROUTINE 




ORG 


$6000 




JMP 


PROG 


BLOCK 


DS 


1 


LNGH 


DS 


1 


HIRESL 


EQU 


$FB 


HIRESH 


EQU 


HIRESL+$1 


* ENTER 


HERE FIRST TIME 1 


PROG 


LDA 


$C050 




LDA 


$C052 




LDA 


$C057 


START 


LDX 


#$00 


NXBL0CK 


LDA 


YBL0CKH , X 




STA 


HIRESH 




LDA 


YBL0CKL , X 




STA 


HIRESL 




LDY 


#$01 




JSR 


DRAW1 




INX 






CPX 


#$18 




BLT 


NXBL0CK 




JMP 


START 



OTH ROW OF 8 LINE BLOCKS 

GET SCREEN POINTERS FOR 1ST ROW 

OF BLOCK 



;NEED TO MOVE COLUMN #1 BYTE FIRST 

;NEXT ROW 
; BOTTOM YET? 
;N0, CONTINUE 

*o„»„™ ; SCROLL ENTIRE SCREEN AGAIN 

*SUBROUTINE TO DRAW EACH SHAPE 
*EACH SHAPE 1 BYTE BY 8 ROWS 
DRAW1 LDA #$27 



DRAW2 



LDA 
STA 
LDA 
DEY 
STA 
INY 
LDA 
CLC 
ADC 
STA 
CMP 
BCC 
SBC 
STA 
DEC 



LNGH 

(HIRESL), Y ;L0AD BYTE WANT TO MOVE LEFT 

;L0 BYTE POINTER TO ONE BYTE LEFT 

(HIRESL), Y ; STORE BYTE 

; RETURN POINTER TO RIGHT 

HIRESH 

#$04 ;THIS GETS TO NEXT ROW IN BLOCK 

HIRESH 

#$40 ; ARE WE FINISHED WITH 8 ROWS 

DRAW2 ;N0 DO NEXT BYTE 

#$20 ; RETURN TO TOP ROW 

HIRESH 

LNGH 



Y reg. = $C0 BOTTOM LINE 



FIND ADDRESS BOTTOM LINE 
BOTTOML , BOTTOMH 



DECREMENT Y register 



FIND ADDRESS TOP LINE 
TOPL, TOPH 



LINE = Y register 



Y register = LEFT 



LOAD BYTE FROM TOP LINE, Yth POSITION 



STORE BYTE BOTTOM LINE, Yth POSITION 



INC Y register FOR NEXT BYTE 



no. 



DONE LINE? 



yes 



Y register = LINE 



no. 



AT TOP ? LINE = 1? 



yes 



6044: 


F0 


03 




40 


6046: 


C8 






41 


6047: 


DO 


E3 




42 


6049: 


60 






43 
44 


604A: 


20 


20 


21 




604D: 


21 


22 


22 




6050: 


23 


23 


20 




6053: 


20 






45 


6054: 


21 


21 


22 




6057: 


22 


23 


23 




605A: 


20 


20 


21 




605D: 


21 






46 


605E: 


22 


22 


23 




6061: 


23 






47 


6062: 


00 


80 


00 




6065: 


80 


00 


80 




6068: 


00 


80 


28 




606B: 


A8 






48 


606C: 


28 


A8 


28 




606F: 


A8 


28 


A8 




6072: 


50 


DO 


50 




6075: 


DO 






49 


6076: 


50 


DO 


50 




6079: 


DO 






50 



; FINISHED? 

;NEXT COLUMN OF 8 ROWS 



BEQ DRAW 3 
INY 

BNE DRAW2 
DRAW3 RTS 

*TABLES OF STARTING VALUE OF EACH OF 20 BLOCKS 



YBLOCKH HEX 20202121222223232020 

HEX 21212222232320202121 

HEX 22222323 

YBLOCKL HEX 008000800080008028A8 

HEX 28A828A828A850D050D0 

HEX 50D050D0 



— END ASSEMBLY- 
ERRORS: 
122 BYTES 
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CHAPTER 8 

WHAT MAKES A GOOD GAME 



There is no sure-fire way to predict whether a game will be successful, but 
there are certain attributes that may ensure success. Certainly, a game should 
have a goal, for, without one, what is the point in playing? The game should 
also be challenging, since, without requiring some skill, you would tire of it 
quickly. A game should evoke either a fantasy situation or your innate curiosi- 
ty, for, without being novel or puzzling, it becomes boring. And lastly 
(especially in arcade games), a game should be easily controllable in regards to 
the interaction of the player with the computer game. 

Game objectives take two different forms. There are games where the goal is 
approached, like destroying the fleet of invaders in Galaxian or Space In- 
vaders, or landing on the moon in Lunar lander. There are also games where 
the goal is to avoid catastrophe. Examples of this range from preventing a 
nuclear power plant meltdown in Three Mile Island to saving your cities dur- 
ing a nuclear missile attack in Missile Command. 

Goals must suit a player's expectations or fantasies. This is why certain peo- 
ple like certain certain types of games more than others. The battle-lines of 
good against evil lurk in the background of many space games, wherein evil, 
menacing invaders are bent on destruction of the Earth. It becomes the 
player's goal to protect the Earth as long as possible while scoring the most 
points for killing aliens. The fantasy of destroying objects during a game ap- 
peals to others. It can take the form of popping balloons by bouncing a clown 
off a teeter-totter, such as in Clowns and Balloons, or breaking out bricks in a 
wall, as in Breakout. In each case, the partially-destroyed wall or rows of 
balloons presents a visually compelling goal and a graphic scorekeeping device 
as well. Other goals that appeal to many range from accumulating the most 
treasure while exploring an underground cavern to escaping from a crumbling 
building before it collapses or before your food runs out. 

Goals in most games imply that there is some end point, either when the goal 
is reached or when you fail. It is often important to make sure the game doesn't 
just go on and on forever. Limits should be set. Sometimes these take the form 
of time limits or the amount of ammunition, balls or ships left. 

For a game to be considered challenging, it should have a goal where the out- 
come is uncertain. If the player is certain to reach the goal or certain not to 
reach it, the game is unlikely to be a challenge and the player will lose interest. 
It is very easy to introduce randomness into a game by either hiding important 
information or introducing random variables that draw the player towards 
disaster. But you must be careful not to overdo this, since a totally random 



game lacks a skill factor. Players quickly discover that they have no control 
over the outcome. 

A variable difficulty level is often used to alter the game's level of play. 
These levels, often with ego satisfying names like Star Commander or Pilot, 
can be set by the player. Many games are designed to become harder the fur- 
ther you get into them. This increasing skill level requirement presents an add- 
ed challenge, while preventing the player from growing complacent. Often, the 
technique is to speed up the game or place additional enemy craft into the bat- 
tle. The player is required to play faster and better, honing his reflexes during 
the process. 

Any good game should offer a reward for reaching increasingly difficult 
levels of play. Often, bonus points, extra balls, ships, or more ammunition are 
rewarded for exceeding score thresholds. It is important that there be greater 
rewards for winning than losing. A person's ego is involved. A player wants to 
beat a challenging game, not to be humiliated each time he loses. 

Games either need to fulfill a player's fantasy or stimulate their curiousity. 
Computer game fantasies derive some of their appeal from the emotional needs 
that they satisfy. Different fantasies appeal to different people. 

Appealing to a player's curiosity is often effective in keeping a game in- 
teresting. While novelty is sometimes a crucial factor in the original purchase, 
if the game has little depth, it becomes repetitious and boring. One method 
that appeals to many game designers is to have the game progress to slightly 
different scenarios. Some games change the opposition, while others vary the 
scenery; some do both. The player has to excel if he is to satisfy his curiosity. 
Games like Threshold, which progresses through 24 sets of alien spacecraft, or 
Pegasus II, in which the scenery changes and the attacking aliens vary, offer 
strong curiosity incentives. 

A game's controllability is one of the more important considerations in a 
game's design. It is sometimes referred to as human engineering. Designer's 
usually choose between keyboard and paddle/joystick control. While eye/hand 
coordination is more effective using paddles or joysticks, programmers attemp- 
ting to create games with too many control functions will opt for a keyboard 
control system. At times, they produce a game that requires nine or ten 
keyboard controls which, unfortunately, only a pianist can operate. Some 
prefer keyboard controls because they offer a faster response time than paddle 
inputs, or they are easier to program, or this approach doesn't limit the market 
to an audience with expensive joysticks. I don't think the latter should in- 
fluence your choice, but thought should be given to which method would make 
the game more enjoyable. Games that require considerable time to master the 
controls, often prove too frustrating to play. 

Apparently, Apple owners like games which pit them against a competitive 
computer opponent. There are several multi-player games in which groups of 
two or more will simultaneously compete against each other. Most of these 
contests are sports or card games involving two or more players. The 
cooperative game is rarely seen, except in games where the computer com- 
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petitor is much too skillful. The arcade game "Ripoff" involves a computer 
opponent that is more than a match for two players playing simultaneously. It 
is the lone exception to the one-player- against -the-machine game. 

So far, we have discussed theory and generalizations that should increase a 
game's playability and appeal to the public. Concrete examples of the more 
popular games should give you a much more solid foundation for your own 
designs. 



EXAMPLE ARCADE GAMES 

Space Invaders was the first really popular arcade game. It is a game 
wherein the object is to defend your turf against an alien horde of ferocious in- 
vaders that attack your castles and gun bases with a barrage of undulating 
bullets. It is actually a timed game, since you only have a limited amount of 
time to destroy the entire attacking wave before they descend to the ground in 
marching formation and overrun your lone gun base. 

The elimination of each alien acts as a visual scorekeeping device. Although 
you can never win, only survive as long as possible (thus getting the maximum 
play time for your quarter), elimination of each attacking wave is an in- 
termediate goal and a staving off of your inevitable doom. Each successive level 
becomes more difficult since the aliens, which begin their attack closer to 
Earth, limit the amount of time you have to destroy them. Their approaching 
proximity to your mobile gun base decreases your reaction time needed to 
avoid enemy fire. 

Shoot-'em-up games like Sneakers, Galaxian, Threshold and Gamma 
Goblins are actually spin-offs of the Space Invaders theme. Whether they are 
set in space or on the ground, each has varieties of targets that are bent on your 
destruction. The targets or attackers are no longer static. Either they appear to 
dodge your fire, or they resort to kamikaze-type attacks. 

The strong appeal of these types of games is based on curiousity and game 
depth. You are inspired to do better with each game just to see what the at- 
tackers are going to look like in the next level and what their tactics will consist 
of. The concept is variety, with each successive level slightly harder than the 
last. Although most offer an unlimited number of bullets, Threshold controls 
rapid, random, and wasteful firing by overheating your lasers. Thus, your fir- 
ing must be more accurate and paced during the game. 

The popularity of Pacman can be attributed to the game's design. First, it 
satisfies the fantasy concept of a person's childhood dreams. As children, they 
dreamt that they were being chased by evil monsters or ghosts, and felt 
powerless to stop them. They wished that there was some way to turn the 
tables, if only for a few moments. Pacman 's four energy dots fulfill that fan- 
tasy. The game also offers the visual feedback of the number of remaining dots 
to be eaten at each level. And since clearing each individual level is an im- 
mediate goal, even beginners believe a level can be cleared. Because Pacman is 



283 



a game of consumption rather than one of destruction, it appeals to players of 
both sexes. 

The game becomes a learning experience to the more advanced player, since 
the ghosts follow a discernible pattern rather than move randomly. A player is 
able to eventually predict their movements and consequently develop a tech- 
nique to clear all the dots on a particular level. The long term goal is survival 
and the highest score. The game is designed so that you gain more pleasure as 
you get better. Thus, players are willing to devote the time and money to 
master the game. 

Scrolling games, such as Scramble and Vanguard as played in the arcades, 
and Pegasus II on the Apple, wherein your ship travels over a multi-screen 
world, benefit strongly from player curiousity and visual variety. Vanguard, a 
shoot- 'em-up game in which your ship is attacked by a variety of enemy vessels 
and creatures, has an extremely long sinuous tunnel with various types of 
chambers. The game has so many sections, combined with scrolling directions 
which change from horizontal to diagonal to vertical, that it is like playing 
many different arcade games at once. The player is given the option several 
times during the game to enter battle with a time-limited energized spacecraft 
which is equipped for ramming the enemy, or merely four plain old directional 
lasers. A map displayed at the lower corner informs the player of his progress. 
The curiousity factor is so enticing in this game, thirty seconds are provided to 
lure you into inserting another quarter in order to allow you to continue from 
where you left off with this unique form of arcade addiction. 

The popularity of Pacman can be attributed to the game's design. First, it 
satisfies the fantasy concept of a person's childhood dreams. As children, they 
dreamt that they were being chased by evil monsters or ghosts, and felt 
powerless to stop them. They wished that there was some way to turn the 
tables, if only for a few moments. Pacman 's four energy dots fulfill that fan- 
tasy. The game also offers the visual feedback of the number of remaining dots 
to be eaten at each level. And since clearing each individual level is an im- 
mediate goal, even beginners believe a level can be cleared. 

The game becomes a learning experience to the more advanced player, since 
the ghosts follow a discernible pattern rather than move randomly. A player is 
able to eventually predict their movements and consequently develop a tech- 
nique to clear all the dots on a particular level. The long term goal is survival 
and the highest score. The game is designed so that you gain more pleasure as 
you get better. Thus, players are willing to devote the time and money to 
master the game. 

Scrolling games, such as Scramble and Vanguard as played in the arcades, 
and Pegasus II on the Apple, wherein your ship travels over a multi-screen 
world, benefit strongly from player curiousity and visual variety. Vanguard, a 
shoot- 'em-up game in which your ship is attacked by a variety of enemy vessels 
and creatures, has an extremely long sinuous tunnel with various types of 
chambers. The game has so many sections, combined with scrolling directions 
which change from horizontal to diagonal to vertical, that it is like playing 



many different arcade games at once. The player is given the option several 
times during the game to enter battle with a time-limited energized spacecraft 
which is equipped for ramming the enemy, or merely four plain old directional 
lasers. A map displayed at the lower corner informs the player of his progress. 
The curiousity factor is so enticing in this game, thirty seconds are provided to 
lure you into inserting another quarter in order to allow you to continue from 
where you left off with this unique form of arcade addiction. 

Pegasus II, as implemented on the Apple, offers variety in terrain, targets 
and types of enemy. Besides trying to survive ground-launched rockets, a 
meteor field, attacking birds, and flying saucers, you must defeat a horde of 
laser-armed dragons that separate you from your refueling base. Your im- 
mediate goal is to reach the base before running out of fuel. This means ac- 
curate shooting, for enemies like dragons can delay your rendezvous with the 
base. Long term goals consist of reaching the tunnel and scoring the highest 
number of points. 

In closing, I hope I have provided you with some acquired skills for creating 
your own visual masterpieces. The arcade versions described above are, as of 
this writing, being surpassed in quality by the dazzling array of games current- 
ly arriving on the personal computer market from talented graphics program- 
mers. 

My hope is that this book has provided some techniques and insights into 
graphics game design and programming; possibly even enough to allow you to 
join the ranks of successful Apple game designers. 



INDEX 



Addition & Subtraction, 45-46 
Addressing modes, 42, 74, 112-114 
AND instruction, 131-132, 209-210 
Animation Apple Shapes, 26-29 
Animation HPLOT Shapes, 78-81 
Apple Shape Tables, 16-25, 81-85 
Applesoft Hi-Res, 9, 29 
Applesoft ROM, 69-71 
ASL & LSR instructions, 53 
Assemblers, 25 
Assembly language, 36-46 
Background fill, 14 

Background preservation while drawing, 140-146 

Bit-mapped Shape Tables, 100-109 

Bomb drop, 154-157, 161-164 

Branch instructions, 44-45 

Breakout game, 51-68 

Bullet motion, 157-160 

Character generators, 30-33 

Collisions, 209-212 

Color problems, 123-127 

Compare instructions, 43 

Debug package, 204-205 

Drawing bit-mapped shapes, 111-118 

EOR instruction, 119-120 

Explosions, 214-220 

Game design & theory, 281-285 

Graphic screen layouts, 9, 87 

Graphic screen switches, 10 

Hexadecimal numbers, 36-37 

HI-RES color, 14, 89-92 

HI-RES screen layout, 87-99 

HPLOT shapes, 73-77 
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Increment & decrement instructions, 43 

Interfacing bit-mapping to Applesoft, 135-139 

Invaders game, 164-181 

Joystick control, 152-153 

Laser fire, 205, 208 

Line memory address, 93-97 

Load instructions, 42 

Lookup tables, 111-112 

LO-RES graphics, 47-50 

Memory constraints, 1 1 

Memory map, 38-39 

Mountain background generator, 239 

Mountain collision test, 246-248 

Movement constraints & advantages, 132-133 

Odd / even test, 54 

OR instruction, 120 

Order of game events, 246 

Pac-Man, 283-284 

Paddle button trigger, 205 

Paddle crosstalk, 152-153 

Paddle routine, 147-151 

Page flipping, 15-16, 225-236 

Pegasus II, 285 

Print routine, 56-57 

Program Status Word, 39 

Raster shape tables, 100-109 

Scorekeeping, 55-56, 220-224 

Screen erase, 128-131 

Scrolling — vertical, 271-277 

Scrolling — horizontal, 278-280 

Scrolling games, 237-270 

Scrolling subroutine, 240-241 

Selective drawing control, 131-134 

Space Invaders, 283 

Space ship — steerable, 183-194 

Space ship — steerable & floating, 195-203 

Store instructions, 42-43 

XDRAWing bit-mapped shapes, 119-123 



Jeffrey Stanton received a BME (1967) and a MSME (1969) from 
Rensselaer Polytechnic Institute. He worked as a control systems engineer and 
mechanical engineer for the aerospace industry in the early 1970's. His strong 
interest in computer game design sidetracked his career as a photographer and 
book illustrator in the late 1970's. Although he occasionally does a commercial 
assignment and owns a postcard company, much of his time is devoted to keep- 
ing abreast of the latest arcade game programming techniques on both the 
Apple and the Atari computers. He has several Apple games on the market and 
is writing a complex arcade game on the Atari 800. Jeffrey currently resides in 
Venice, California. 
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• Learn Apple Hi-Res Graphics from BASIC and machine 
language. 

• Learn how to speed up your graphics. 

• Learn raster graphics and bit mapping techniques. 

• The only book to explain how to design arcade games from 
start to finish through the use of text, flow charts and work- 
ing examples. 

• Learn the theory of how to design a playable game. 

• Requires a solid foundation in BASIC programming on the 
Apple II. 



$19.95 



